A154554 Primes p such that m=p-1 is the least number such that p divides m!+1.
2, 3, 5, 13, 17, 31, 37, 41, 53, 73, 89, 97, 101, 107, 113, 151, 157, 167, 173, 181, 197, 211, 223, 229, 241, 281, 283, 313, 331, 337, 349, 353, 373, 409, 421, 433, 439, 457, 487, 509, 541, 547, 587, 617, 643, 653, 659, 677, 701, 751, 757, 761, 769, 773, 821
Offset: 1
Keywords
Links
- T. D. Noe, Table of n, a(n) for n=1..1000
Programs
-
Mathematica
Rest[Reap[Do[p=Prime[i]; f=1; m=1; While[f=Mod[f*m,p]; f+1
Comments