16 lines
486 B
Plaintext
16 lines
486 B
Plaintext
LimitedPrint[n_] := Module[{s = IntegerString[n], len},
|
|
len = StringLength[s];
|
|
If[len <= 40, s, StringJoin[StringTake[s, 20], "...", StringTake[s, -20], " (", ToString[len], " digits)"]]
|
|
]
|
|
|
|
ShowFactorialPrimes[N_] := Module[{f},
|
|
Do[
|
|
f = Factorial[i];
|
|
If[PrimeQ[f - 1], Print[IntegerString[i, 10, 3], "! - 1 -> ", LimitedPrint[f - 1]]];
|
|
If[PrimeQ[f + 1], Print[IntegerString[i, 10, 3], "! + 1 -> ", LimitedPrint[f + 1]]],
|
|
{i, 1, N}
|
|
]
|
|
]
|
|
|
|
ShowFactorialPrimes[1000]
|