%I #11 Jan 28 2020 18:56:04
%S 12,86,230,1170,2660,2772,6572,8858,9590,16332,17708,54540,63890,
%T 64908,82830,98132,104726,119298,136502,152198,177918,187040,234650,
%U 241682,253118,263930,278970,376680,412440,456110,469034,471642,490650,524888
%N Numbers n such that n+prime(n) is the square of a prime.
%H Harvey P. Dale, <a href="/A104911/b104911.txt">Table of n, a(n) for n = 1..100</a>
%t Select[Range[525000],PrimeQ[Sqrt[#+Prime[#]]]&] (* _Harvey P. Dale_, Jan 28 2020 *)
%o (PARI) isok(n) = s = n+prime(n); issquare(s) && isprime(sqrtint(s)); \\ _Michel Marcus_, Oct 05 2013
%K nonn
%O 1,1
%A _Zak Seidov_, Apr 25 2005
%E a(12)-a(34) from _Donovan Johnson_, Jul 02 2010