OFFSET
1,2
MATHEMATICA
lst={}; Do[p=Prime[n]; If[PrimeQ[p^2+n! ], AppendTo[lst, n]], {n, 3*10^2}]; lst (* Vladimir Joseph Stephan Orlovsky, Sep 08 2008 *)
Select[Range[280], PrimeQ[Prime[#]^2+#!]&] (* Harvey P. Dale, Apr 24 2018 *)
PROG
(PARI) j=[]; for(n=1, 300, if(isprime(prime(n)^2+n!), j=concat(j, n))); j
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Alexander R. Povolotsky, Aug 09 2008
EXTENSIONS
Offset changed to 1 by and a(13)-a(14) from Jinyuan Wang, Apr 10 2020
a(15) from Michael S. Branicky, Apr 25 2023
STATUS
approved