%I #14 Sep 08 2022 08:45:01
%S 0,1,28,35,36,46
%N Sum of digits of a(n)^5 is equal to a(n).
%e a(2) = 28 because 28^5 = 17210368 and 1+7+2+1+0+3+6+8 = 28
%t Select[Range[0, 60], #==Total[IntegerDigits[#^5]] &] (* _Vincenzo Librandi_, Feb 23 2015 *)
%o (PARI) lista(nn) = {for (n=0, nn, if (n^5 == sumdigits(n^5)^5, print1(n, ", ")););} \\ _Michel Marcus_, Feb 23 2015
%o (Magma) [n: n in [0..50] | &+Intseq(n^5) eq n ]; // _Vincenzo Librandi_, Feb 23 2015
%Y Cf. A055566, A055571, A046459, A055575, A055577.
%Y Cf. A152147.
%K base,fini,full,nonn
%O 1,3
%A _Henry Bottomley_, May 26 2000
%E Offset changed to 1 by _Michel Marcus_, Feb 23 2015
|