OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..100
MATHEMATICA
Select[Range[525000], PrimeQ[Sqrt[#+Prime[#]]]&] (* Harvey P. Dale, Jan 28 2020 *)
PROG
(PARI) isok(n) = s = n+prime(n); issquare(s) && isprime(sqrtint(s)); \\ Michel Marcus, Oct 05 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Apr 25 2005
EXTENSIONS
a(12)-a(34) from Donovan Johnson, Jul 02 2010
STATUS
approved