A254000 Numbers equal to the fifth powers of the sums of their digits.

0, 1, 17210368, 52521875, 60466176, 205962976

Offset

1,3

Links

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

Formula

a(n) = A055576(n)^5. - Michel Marcus, Feb 23 2015

Example

205962976 = 46^5 = (2 + 0 + 5 + 9 + 6 + 2 + 9 + 7 + 6)^5.

Mathematica

Select[Range@ 210000000, Plus @@ IntegerDigits@ # ^ 5 == # &] (* Michael De Vlieger, Feb 25 2015 *)

Prog

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

Crossrefs

Cf. A061209 (with cubes), A061210 (with 4th powers), A061211.

Sequence in context: A175271 A172597 A172569 * A129478 A326137 A288078

Adjacent sequences: A253997 A253998 A253999 * A254001 A254002 A254003

Keyword

nonn,fini,full,base

Author

Michal Paulovic, Jan 21 2015

Status

approved