RosettaCodeData/Task/Amicable-pairs/Prolog/amicable-pairs-2.pro
2015-11-18 06:14:39 +00:00

2 lines
132 B
Prolog

?- amicable_pairs_under_20000(R).
R = [220-284, 1184-1210, 2620-2924, 5020-5564, 6232-6368, 10744-10856, 12285-14595, 17296-18416].