OFFSET
1,1
MATHEMATICA
Select[Prime[Range[3300]], Total[IntegerDigits[#]]==Total[IntegerDigits[ #^2]]&] (* Harvey P. Dale, May 08 2011 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
G. L. Honaker, Jr., Dec 17 2000
STATUS
approved