OFFSET
1,1
COMMENTS
Subsequence of A121926. - Michel Marcus, Apr 05 2015
LINKS
Harry J. Smith, Table of n, a(n) for n=1,...,18
MATHEMATICA
Select[Table[Prime[n] + n!, {n, 1, 60}], PrimeQ] (* Vincenzo Librandi, Apr 05 2015 *)
PROG
(PARI) for(n=1, 70, x=prime(n)+n!; if(isprime(x), print(x)))
(PARI) { n=0; f=1; for (m=1, 10^9, f*=m; if (isprime(a=prime(m) + f), write("b063499.txt", n++, " ", a); if (n==18, break)) ) } \\ Harry J. Smith, Aug 24 2009
(Magma) [a: n in [1..50] | IsPrime(a) where a is NthPrime(n) + Factorial(n) ]; // Vincenzo Librandi, Apr 05 2015
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jason Earls, Jul 30 2001
STATUS
approved