Revision as of 21:44, 19 January 2015 (view source) Franck (talk \| contribs) (→‎{{header\|Oforth}}) ← Older edit		Revision as of 21:45, 19 January 2015 (view source) Franck (talk \| contribs) m (→‎{{header\|Oforth}}) Newer edit →
Line 297: 10 seq apply(#[ dup print " : " print properDivs println ]) 20000 seq map(#[ dup properDivs size ~~swap~~ Pair new ]) reduce(#~~maxValue~~maxKey) println</lang> {{out}} <pre> Line 310: 9 : [1, 3] 10 : [1, 2, 5] [~~15120~~19, 7915120] </pre>

Proper divisors (view source)