OFFSET
1,1
COMMENTS
EXAMPLE
a(4) = 145 because 1+4+5 = 10, 145^2 = 21025, and 2+1+0+2+5 = 10.
MATHEMATICA
Select[Range[2 10^7], Total[IntegerDigits[#]]==10 && Total[IntegerDigits[#^2]]==10 &]
PROG
(Magma) [n: n in [1..2*10^7] | &+Intseq(n^2) eq 10 and &+Intseq(n) eq 10];
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Vincenzo Librandi, May 10 2019
STATUS
approved