OFFSET
1,2
COMMENTS
MATHEMATICA
Sqrt[#]&/@Select[Table[Prime[k]-k, {k, 2, 40000}], IntegerQ[Sqrt[#]]&] (* Harvey P. Dale, Aug 04 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Oct 28 2005
STATUS
approved