OFFSET
1,1
LINKS
Zak Seidov, Table of n, a(n) for n = 1..100
EXAMPLE
p = 5, q = prime(5) = 11, p + q = 16 = 4^2.
p = 241, q = prime(241) = 1523, p + q = 1764 = 42^2.
MATHEMATICA
Select[Prime[Range[200000]], IntegerQ[Sqrt[#+Prime[#]]]&] (* Harvey P. Dale, Apr 15 2019 *)
PROG
(PARI) s=[]; forprime(p=2, 3000000, if(issquare(p+prime(p)), s=concat(s, p))); s \\ Colin Barker, May 19 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, May 19 2014
STATUS
approved