A325451 Numbers k such that sum of digits (k) and sum of digits (k^2) is 10.
19, 46, 55, 145, 190, 361, 451, 460, 550, 1450, 1900, 3610, 4510, 4600, 5500, 14500, 19000, 20251, 36100, 45100, 46000, 55000, 145000, 190000, 202510, 361000, 451000, 460000, 550000, 1450000, 1900000, 2025100, 3610000, 4510000, 4600000, 5500000, 14500000
Offset: 1
Examples
a(4) = 145 because 1+4+5 = 10, 145^2 = 21025, and 2+1+0+2+5 = 10.
Programs
-
Magma
[n: n in [1..2*10^7] | &+Intseq(n^2) eq 10 and &+Intseq(n) eq 10];
-
Mathematica
Select[Range[2 10^7], Total[IntegerDigits[#]]==10 && Total[IntegerDigits[#^2]]==10 &]
Comments