OFFSET
1,1
EXAMPLE
407+p(407)+p(p(407))=169^2.
MATHEMATICA
Select[Range[250000], IntegerQ[Sqrt[#+Prime[#]+Prime[Prime[#]]]]&] (* Harvey P. Dale, May 29 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Giovanni Resta, Feb 13 2006
STATUS
approved