OFFSET
1,1
MATHEMATICA
Select[Range[17000], IntegerQ[Sqrt[#+2Prime[#]]]&] (* Harvey P. Dale, Aug 18 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Apr 23 2005
STATUS
approved