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

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

Offset

1,3

Links

Table of n, a(n) for n=1..7.

Example

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

Mathematica

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

Prog

(Magma) [n: n in [0..50] | &+Intseq(n^4) eq n ]; // Vincenzo Librandi, Feb 23 2015
(Sage) [n for n in (0..50) if sum((n^4).digits()) == n] # Bruno Berselli, Feb 23 2015
(PARI) isok(k)=sumdigits(k^4)==k \\ Patrick De Geest, Dec 10 2024

Crossrefs

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

Cf. A152147.

Sequence in context: A200886 A070412 A286572 * A297712 A041090 A042639

Adjacent sequences: A055572 A055573 A055574 * A055576 A055577 A055578

Keyword

base,fini,full,nonn

Author

Henry Bottomley, May 26 2000

Status

approved