login
A055577
Sum of digits of a(n)^6 is equal to a(n).
10
0, 1, 18, 45, 54, 64
OFFSET
1,3
EXAMPLE
a(2) = 18 because 18^6 = 34012224 and 3+4+0+1+2+2+2+4 = 18
MATHEMATICA
Select[Range[0, 100], #==Total[IntegerDigits[#^6]]&] (* Harvey P. Dale, Oct 26 2011 *)
PROG
(Magma) [n: n in [0..100] | &+Intseq(n^6) eq n ]; // Vincenzo Librandi, Feb 23 2015
(Sage) [n for n in (0..70) if sum((n^6).digits()) == n] # Bruno Berselli, Feb 23 2015
CROSSREFS
KEYWORD
base,fini,full,nonn
AUTHOR
Henry Bottomley, May 26 2000
STATUS
approved