A337356 Numbers whose digit sum of their square is equal to their square root.

0, 1, 49, 484, 625, 784, 1296

Offset: 1

Author

Evzen Stejskal, Aug 24 2020

Keywords

• nonn
• base
• fini
• full

Crossrefs

Cf. A055575.

Programs

Mathematica

Select[Range[0, 36], Plus @@ IntegerDigits[#^4] == # &]^2 (* Amiram Eldar, Sep 08 2020 *)

Formula

a(n) = A055575(n)^2. - Joerg Arndt, Sep 01 2020