OFFSET
1,2
MATHEMATICA
Do[If[n==7Total[IntegerDigits[n]^2], Print[n]], {n, 0, 2000, 7}]
CROSSREFS
KEYWORD
base,fini,full,nonn
AUTHOR
Zak Seidov, Apr 27 2006
STATUS
approved