A055576 Sum of digits of a(n)^5 is equal to a(n).

0, 1, 28, 35, 36, 46

Offset

1,3

Links

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

Example

a(2) = 28 because 28^5 = 17210368 and 1+7+2+1+0+3+6+8 = 28

Mathematica

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

Prog

(PARI) lista(nn) = {for (n=0, nn, if (n^5 == sumdigits(n^5)^5, print1(n, ", ")); ); } \\ Michel Marcus, Feb 23 2015
(Magma) [n: n in [0..50] | &+Intseq(n^5) eq n ]; // Vincenzo Librandi, Feb 23 2015

Crossrefs

Cf. A055566, A055571, A046459, A055575, A055577.

Cf. A152147.

Sequence in context: A138687 A330758 A214470 * A281916 A146077 A260637

Adjacent sequences: A055573 A055574 A055575 * A055577 A055578 A055579

Keyword

base,fini,full,nonn

Author

Henry Bottomley, May 26 2000

Extensions

Offset changed to 1 by Michel Marcus, Feb 23 2015

Status

approved