Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A154554
Primes p such that m=p-1 is the least number such that p divides m!+1.
2
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,1
COMMENTS
The graph of A073944 shows two prominent curves. This sequence gives the primes on the upper curve. Primes on the lower curve are in sequence A154555. Note that the terms of A115092 are 1 for these primes.
MATHEMATICA
Rest[Reap[Do[p=Prime[i]; f=1; m=1; While[f=Mod[f*m, p]; f+1<p, m++ ]; If[m==p-1, Sow[p]], {i, 200}]]][[1, 1]]
CROSSREFS
Sequence in context: A227829 A231481 A284669 * A105879 A066111 A065820
KEYWORD
nonn
AUTHOR
T. D. Noe, Jan 12 2009
STATUS
approved