login
A092791
Numbers n such that (n-1)! + n is prime.
2
1, 2, 3, 5, 7, 11, 53, 6823, 30839
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
Sequence in context: A036343 A058253 A004089 * A070892 A075800 A067909
KEYWORD
nonn
AUTHOR
Cino Hilliard, Apr 15 2004
EXTENSIONS
a(8)-a(9) from Giovanni Resta, May 04 2013
STATUS
approved