%I #16 Sep 12 2020 05:54:17
%S 0,1,49,484,625,784,1296
%N Numbers whose digit sum of their square is equal to their square root.
%F a(n) = A055575(n)^2. - _Joerg Arndt_, Sep 01 2020
%t Select[Range[0, 36], Plus @@ IntegerDigits[#^4] == # &]^2 (* _Amiram Eldar_, Sep 08 2020 *)
%Y Cf. A055575.
%K nonn,base,fini,full
%O 1,3
%A _Evzen Stejskal_, Aug 24 2020
|