A254000 - OEIS

%I #18 Mar 07 2015 16:19:50

%S 0,1,17210368,52521875,60466176,205962976

%N Numbers equal to the fifth powers of the sums of their digits.

%F a(n) = A055576(n)^5. - _Michel Marcus_, Feb 23 2015

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

%t Select[Range@ 210000000, Plus @@ IntegerDigits@ # ^ 5 == # &] (* _Michael De Vlieger_, Feb 25 2015 *)

%o (PARI) lista(nn) = {for (n=0, nn, if (n^5 == sumdigits(n^5)^5, print1(n^5, ", ")););} \\ _Michel Marcus_, Feb 23 2015

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

%K nonn,fini,full,base

%O 1,3

%A _Michal Paulovic_, Jan 21 2015