A055575 Sum of digits of n^4 is equal to n.

0, 1, 7, 22, 25, 28, 36

Offset: 1

Author

Henry Bottomley, May 26 2000

Keywords

• base
• fini
• full
• nonn

Examples

			7 is a member because 7^4 = 2401 and 2+4+0+1 = 7.
		

Crossrefs

Cf. A055565, A055570, A046459, A055576, A055577.

Cf. A152147.

Programs

Magma

[n: n in [0..50] | &+Intseq(n^4) eq n ]; // Vincenzo Librandi, Feb 23 2015

Mathematica

Select[Range[0, 50], #==Total[IntegerDigits[#^4]] &] (* Vincenzo Librandi, Feb 23 2015 *)

PARI

isok(k)=sumdigits(k^4)==k \\ Patrick De Geest, Dec 10 2024

Sage

[n for n in (0..50) if sum((n^4).digits()) == n] # Bruno Berselli, Feb 23 2015