|
Search: id:A152220
|
|
|
| A152220 |
|
Primes p such that p^2 divides m!-1 for some integer m<p. |
|
+0
2
|
| |
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
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: A027847 A068841 A124296 this_sequence A082712 A049090 A094622
Adjacent sequences: A152217 A152218 A152219 this_sequence A152221 A152222 A152223
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Artur Jasinski (grafix(AT)csl.pl), Nov 29 2008
|
|
|
Search completed in 0.002 seconds
|
