Factorial primes: Difference between revisions
m
→{{header|Julia}}: formatting
(julia example) |
m (→{{header|Julia}}: formatting) |
||
Line 99:
limitedprint(n) = (s = string(n); n = length(s); return n <= 40 ? s : s[1:20] * "..." * s[end-20:end] * " ($n digits)")
function showfactorialprimes(N)
for i in big"1":N
f = factorial(i)
isprime(f - 1) && println(lpad(i, 3), "! - 1 -> ", limitedprint(f - 1))
isprime(f + 1) && println(lpad(i, 3), "! + 1 -> ", limitedprint(f + 1))
end
end
Line 112 ⟶ 111:
</lang>{{out}}
<pre>
1! + 1 -> 2
2! + 1 -> 3
3! - 1 -> 5
3! + 1 -> 7
4! - 1 -> 23
6! - 1 -> 719
7! - 1 -> 5039
11! + 1 -> 39916801
12! - 1 -> 479001599
14! - 1 -> 87178291199
27! + 1 -> 10888869450418352160768000001
30! - 1 -> 265252859812191058636308479999999
32! - 1 -> 263130836933693530167218012159999999
33! - 1 -> 8683317618811886495518194401279999999
37! + 1 -> 13763753091226345046...979581580902400000001 (44 digits)
38! - 1 -> 52302261746660111176...224100074291199999999 (45 digits)
41! + 1 -> 33452526613163807108...440751665152000000001 (50 digits)
73! + 1 -> 44701154615126843408...903680000000000000001 (106 digits)
77! + 1 -> 14518309202828586963...248000000000000000001 (114 digits)
94! - 1 -> 10873661566567430802...999999999999999999999 (147 digits)
116! + 1 -> 33931086844518982011...000000000000000000001 (191 digits)
154! + 1 -> 30897696138473508879...000000000000000000001 (272 digits)
| |||