|
Search: id:A115091
|
|
|
| A115091 |
|
Primes p such that p^2 divides m!+1 for some integer m<p. |
|
+0
1
|
| |
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
By Wilson's theorem, we know that there is an m=p-1 such that p divides m!+1. Sequence A115092 gives the number of m for each prime. Occasionally p^2 also divides m!+1. These primes seem to be only slightly more plentiful than Wilson primes (A007540). No other primes < 10^6.
|
|
REFERENCES
|
R. K. Guy, Unsolved Problems in Number Theory, 3rd Ed., New York, Springer-Verlag, 2004, Section A2.
|
|
MATHEMATICA
|
nn=1000; lst={}; Do[p=Prime[i]; p2=p^2; f=1; m=1; While[m<p && f+1<p2, m++; f=Mod[f*m, p2]]; If[m<p, AppendTo[lst, p]], {i, PrimePi[nn]}]; lst
|
|
CROSSREFS
|
Cf. A038507 (n!+1 is divisible by a square).
Sequence in context: A125742 A116440 A098720 this_sequence A034924 A018607 A032481
Adjacent sequences: A115088 A115089 A115090 this_sequence A115092 A115093 A115094
|
|
KEYWORD
|
hard,more,nonn
|
|
AUTHOR
|
T. D. Noe (noe(AT)sspectra.com), Mar 01 2006
|
|
|
Search completed in 0.002 seconds
|
