This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A154554 #3 Mar 30 2012 17:22:54
%S A154554 2,3,5,13,17,31,37,41,53,73,89,97,101,107,113,151,157,167,173,181,197,
%T A154554 211,223,229,241,281,283,313,331,337,349,353,373,409,421,433,439,457,
%U A154554 487,509,541,547,587,617,643,653,659,677,701,751,757,761,769,773,821
%N A154554 Primes p such that m=p-1 is the least number such that p divides m!+1.
%C A154554 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.
%H A154554 T. D. Noe, <a href="/A154554/b154554.txt">Table of n, a(n) for n=1..1000</a>
%t A154554 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]]
%K A154554 nonn
%O A154554 1,1
%A A154554 _T. D. Noe_, Jan 12 2009