OFFSET
1,3
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
KEYWORD
base,fini,full,nonn
AUTHOR
Henry Bottomley, May 26 2000
EXTENSIONS
Offset changed to 1 by Michel Marcus, Feb 23 2015
STATUS
approved