|
| |
|
|
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.
a(6)=4931 [From Artur Jasinski (grafix(AT)csl.pl), Nov 30 2008]
|
|
|
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
| A064237, A152219
A152231, A152232 [From Artur Jasinski (grafix(AT)csl.pl), Nov 30 2008]
Sequence in context: A068841 A192246 A124296 * A082712 A049090 A173257
Adjacent sequences: A152217 A152218 A152219 * A152221 A152222 A152223
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Artur Jasinski (grafix(AT)csl.pl), Nov 29 2008
|
| |
|
|
