A357080 Numbers k such that the sum of the digits of k multiplied by the sum of the digits of k^2 equals k.
0, 1, 80, 162, 243, 476, 486
Offset: 1
Examples
The sum of the digits of 80 is 8, the sum of the digits of 80^2 = 6400 is 10. The number 80 itself is 8*10. Thus, 80 is in this sequence.
Programs
-
Mathematica
Select[Range[100000], # == Total[IntegerDigits[#]] Total[IntegerDigits[#^2]] &]
-
PARI
isok(k) = k == sumdigits(k)*sumdigits(k^2); \\ Michel Marcus, Sep 11 2022
-
Python
def sd(n): return sum(map(int, str(n))) def ok(n): return sd(n) * sd(n*n) == n print([k for k in range(10**5) if ok(k)]) # Michael S. Branicky, Sep 11 2022
Comments