OFFSET
1,2
COMMENTS
All terms beyond the first must be prime. [Charles R Greathouse IV, Apr 19 2013]
a(10) > 37000. - Giovanni Resta, May 04 2013
MATHEMATICA
Select[Range[80], PrimeQ[(# - 1)! + #] &] (* Jayanta Basu, Apr 19 2013 *)
PROG
(PARI) pm1factpp(n) = { forprime(p=1, n, c=0; y=(p-1)!+p; if(isprime(y), print1(p", ")) ) }
CROSSREFS
KEYWORD
nonn
AUTHOR
Cino Hilliard, Apr 15 2004
EXTENSIONS
a(8)-a(9) from Giovanni Resta, May 04 2013
STATUS
approved