|
|
A055577
|
|
Sum of digits of a(n)^6 is equal to a(n).
|
|
9
|
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
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
|
(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
|
|
|
STATUS
|
approved
|
|
|
|