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