OFFSET
1,2
COMMENTS
The numbers corresponding to 2515 and 4983 are probable primes. [Farideh Firoozbakht, Oct 15 2009]
a(28) > 10000. - Giovanni Resta, Mar 16 2014
EXAMPLE
n=5: 5! = 120 and prime(5) = 11, 120+11 = 131.
6 is listed because 6!+prime(6) = 720+13 = 733 is prime.
MATHEMATICA
Do[ If[ PrimeQ[ n! + Prime[ n ] ], Print[ n ] ], {n, 1, 700} ]
Select[Range[1000], PrimeQ[#! + Prime[#]] &] (* Vincenzo Librandi, Mar 05 2015 *)
PROG
(PARI) for(n=1, 100, if (isprime(n!+prime(n)), print1(n, ", ")))
(Magma) [n: n in [1..200] | IsPrime(Factorial(n)+ NthPrime(n))]; // Vincenzo Librandi, Mar 05 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Jason Earls, Sep 24 2001
EXTENSIONS
More terms from Robert G. Wilson v, Sep 28 2001
More terms from John Sillcox (JMS21187(AT)aol.com), Apr 05 2003
a(25)-a(26) from Farideh Firoozbakht, Oct 15 2009
a(27) from Giovanni Resta, Mar 16 2014
a(28) from Michael S. Branicky, Sep 22 2024
STATUS
approved