Repunit primes: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (another link) |
(julia example) |
||
Line 47: | Line 47: | ||
;* [[Circular primes|Related task: Circular primes]] |
;* [[Circular primes|Related task: Circular primes]] |
||
=={{header|Julia}}== |
|||
<lang julia>using Primes |
|||
repunitprimeinbase(n, base) = isprime(evalpoly(BigInt(base), [1 for _ in 1:n])) |
|||
for b in 2:40 |
|||
println(rpad("Base $b:", 9), filter(n -> repunitprimeinbase(n, b), 1:2700)) |
|||
end |
|||
</lang>{{out}} |
|||
<pre> |
|||
Base 2: [2, 3, 5, 7, 13, 17, 19, 31, 61, 89, 107, 127, 521, 607, 1279, 2203, 2281] |
|||
Base 3: [3, 7, 13, 71, 103, 541, 1091, 1367, 1627] |
|||
Base 4: [2] |
|||
Base 5: [3, 7, 11, 13, 47, 127, 149, 181, 619, 929] |
|||
Base 6: [2, 3, 7, 29, 71, 127, 271, 509, 1049] |
|||
Base 7: [5, 13, 131, 149, 1699] |
|||
Base 8: [3] |
|||
Base 9: Int64[] |
|||
Base 10: [2, 19, 23, 317, 1031] |
|||
Base 11: [17, 19, 73, 139, 907, 1907, 2029] |
|||
Base 12: [2, 3, 5, 19, 97, 109, 317, 353, 701] |
|||
Base 13: [5, 7, 137, 283, 883, 991, 1021, 1193] |
|||
Base 14: [3, 7, 19, 31, 41, 2687] |
|||
Base 15: [3, 43, 73, 487, 2579] |
|||
Base 16: [2] |
|||
Base 17: [3, 5, 7, 11, 47, 71, 419] |
|||
Base 18: [2] |
|||
Base 19: [19, 31, 47, 59, 61, 107, 337, 1061] |
|||
Base 20: [3, 11, 17, 1487] |
|||
Base 21: [3, 11, 17, 43, 271] |
|||
Base 22: [2, 5, 79, 101, 359, 857] |
|||
Base 23: [5] |
|||
Base 24: [3, 5, 19, 53, 71, 653, 661] |
|||
Base 25: Int64[] |
|||
Base 26: [7, 43, 347] |
|||
Base 27: [3] |
|||
Base 28: [2, 5, 17, 457, 1423] |
|||
Base 29: [5, 151] |
|||
Base 30: [2, 5, 11, 163, 569, 1789] |
|||
Base 31: [7, 17, 31] |
|||
Base 32: Int64[] |
|||
Base 33: [3, 197] |
|||
Base 34: [13, 1493] |
|||
Base 35: [313, 1297] |
|||
Base 36: [2] |
|||
Base 37: [13, 71, 181, 251, 463, 521] |
|||
Base 38: [3, 7, 401, 449] |
|||
Base 39: [349, 631] |
|||
Base 40: [2, 5, 7, 19, 23, 29, 541, 751, 1277] |
|||
</pre> |
|||