OFFSET
1,1
COMMENTS
Sequence is complete.
Except for the number 1, these six and numbers 10^k+1 (A062397) are the only numbers (up to trailing 0's) whose square has sum of digits less than 9. - M. F. Hasler, Sep 23 2014
MATHEMATICA
Select[Range[1500], Mod[#, 10]!=0&&Total[IntegerDigits[#^2]]==7&] (* Harvey P. Dale, Aug 21 2022 *)
PROG
(PARI) for(n=1, 9e9, n%10&&sumdigits(n^2)==7&&print1(n", ")) \\ M. F. Hasler, Sep 23 2014
CROSSREFS
KEYWORD
nonn,base,fini,full
AUTHOR
Zak Seidov, Aug 17 2012
STATUS
approved