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

0, 1, 28, 35, 36, 46

Offset: 1

Author

Henry Bottomley, May 26 2000

Keywords

• base
• fini
• full
• nonn

Examples

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

Crossrefs

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

Cf. A152147.

Programs

Magma

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

Mathematica

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

PARI

lista(nn) = {for (n=0, nn, if (n^5 == sumdigits(n^5)^5, print1(n, ", ")););} \\ Michel Marcus, Feb 23 2015

Extensions

Offset changed to 1 by Michel Marcus, Feb 23 2015