OFFSET
1,2
COMMENTS
Essentially the same as A072937. - R. J. Mathar, Sep 23 2008
LINKS
Jon E. Schoenfield, Table of n, a(n) for n = 1..10000 (first 2000 terms from T. D. Noe)
MATHEMATICA
Table[p=Prime[i]; m=1; While[m<p && Mod[m!+1, p]>0, m++ ]; m, {i, 100}] (* T. D. Noe, Mar 01 2006 *)
Module[{sm=Table[{m, m!+1}, {m, 400}]}, Table[SelectFirst[sm, Mod[#[[2]], p]==0&], {p, Prime[ Range[70]]}]][[;; , 1]] (* Harvey P. Dale, Sep 15 2023 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jason Earls, Nov 13 2002
STATUS
approved