|
|
A152220
|
|
Primes p such that p^2 divides m!-1 for some integer m<p.
|
|
1
|
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Numbers n such that n! - 1 is divisible by a square see A152219.
|
|
LINKS
|
|
|
MATHEMATICA
|
aa = {}; Do[If[(Sqrt[n! - 1] /. Sqrt[_] -> 1) > 1, Print[n]; AppendTo[aa, (Sqrt[n! - 1] /. Sqrt[_] -> 1)], {n, 1, 1000}]; aa (*Artur Jasinski*)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|