Carmichael 3 strong pseudoprimes: Difference between revisions
Content added Content deleted
(→{{header|REXX}}: added a version that shows the Carmichael numbers in sorted order. -- ~~~~) |
(→{{header|Python}}: Sorted) |
||
Line 253: | Line 253: | ||
if (p2 * p3) % (p1 - 1) == 1: |
if (p2 * p3) % (p1 - 1) == 1: |
||
#print('%i X %i X %i' % (p1, p2, p3)) |
#print('%i X %i X %i' % (p1, p2, p3)) |
||
ans += [(p1, p2, p3)] |
ans += [tuple(sorted((p1, p2, p3)))] |
||
return ans |
return ans |
||
isprime = Isprime(2) |
isprime = Isprime(2) |
||
ans = sum((carmichael(n) for n in range(62) if isprime(n)), []) |
ans = sorted(sum((carmichael(n) for n in range(62) if isprime(n)), [])) |
||
print(',\n'.join(repr(ans[i:i+5])[1:-1] for i in range(0, len(ans)+1, 5)))</lang> |
print(',\n'.join(repr(ans[i:i+5])[1:-1] for i in range(0, len(ans)+1, 5)))</lang> |
||
{{out}} |
{{out}} |
||
<pre>(3, 11, 17), (5, |
<pre>(3, 11, 17), (5, 13, 17), (5, 17, 29), (5, 29, 73), (7, 13, 19), |
||
(7, |
(7, 13, 31), (7, 19, 67), (7, 23, 41), (7, 31, 73), (7, 73, 103), |
||
(13, |
(13, 37, 61), (13, 37, 97), (13, 37, 241), (13, 61, 397), (13, 97, 421), |
||
(17, 41, 233), (17, 353, 1201), (19, 43, 409), (19, 199, 271), (23, 199, 353), |
(17, 41, 233), (17, 353, 1201), (19, 43, 409), (19, 199, 271), (23, 199, 353), |
||
(29, 113, 1093), (29, 197, 953), (31, |
(29, 113, 1093), (29, 197, 953), (31, 61, 211), (31, 61, 271), (31, 61, 631), |
||
(31, |
(31, 151, 1171), (31, 181, 331), (31, 271, 601), (31, 991, 15361), (37, 73, 109), |
||
(37, 73, |
(37, 73, 181), (37, 73, 541), (37, 109, 2017), (37, 613, 1621), (41, 61, 101), |
||
(41, |
(41, 73, 137), (41, 101, 461), (41, 241, 521), (41, 241, 761), (41, 881, 12041), |
||
(41, |
(41, 1721, 35281), (43, 127, 211), (43, 127, 1093), (43, 127, 2731), (43, 211, 337), |
||
(43, 211, 757), (43, |
(43, 211, 757), (43, 271, 5827), (43, 433, 643), (43, 547, 673), (43, 631, 1597), |
||
(43, |
(43, 631, 13567), (43, 3361, 3907), (47, 1151, 1933), (47, 3359, 6073), (47, 3727, 5153), |
||
(53, |
(53, 79, 599), (53, 157, 521), (53, 157, 2081), (59, 1451, 2089), (61, 181, 1381), |
||
(61, 181, 5521), (61, |
(61, 181, 5521), (61, 241, 421), (61, 271, 571), (61, 277, 2113), (61, 421, 12841), |
||
(61, |
(61, 541, 3001), (61, 661, 2521), (61, 1301, 19841), (61, 3361, 4021)</pre> |
||
=={{header|REXX}}== |
=={{header|REXX}}== |