RosettaCodeData/Task/Amicable-pairs/K/amicable-pairs.k
2023-07-01 13:44:08 -04:00

10 lines
183 B
Text

propdivs:{1+&0=x!'1+!x%2}
(8,2)#v@&{(x=+/propdivs[a])&~x=a:+/propdivs[x]}' v:1+!20000
(220 284
1184 1210
2620 2924
5020 5564
6232 6368
10744 10856
12285 14595
17296 18416)