A337356 Numbers whose digit sum of their square is equal to their square root.
0, 1, 49, 484, 625, 784, 1296
Offset: 1
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