OFFSET
0,3
COMMENTS
Fixed points are listed in A052464. - M. F. Hasler, Apr 12 2015
LINKS
Seiichi Manyama, Table of n, a(n) for n = 0..10000
K. Chikawa, K. Iséki, T. Kusakabe, and K. Shibamura, Computation of cyclic parts of Steinhaus problem for power 5, Acta Arithmetica 7 (1962), 253-254. [From Don Knuth, Sep 07 2015]
FORMULA
a(n) = Sum_{k>=1} (floor(n/10^k) - 10*floor(n/10^(k+1)))^5. - Hieronymus Fischer, Jun 25 2007
a(10n+k) = a(n) + k^5, 0 <= k < 10. - Hieronymus Fischer, Jun 25 2007
MAPLE
MATHEMATICA
Total/@(IntegerDigits[Range[50]]^5) (* Harvey P. Dale, Jan 22 2011 *)
Table[Sum[DigitCount[n][[i]] i^5, {i, 9}], {n, 0, 45}] (* Bruno Berselli, Feb 01 2013 *)
PROG
(Magma) [0] cat [&+[d^5: d in Intseq(n)]: n in [1..45]]; // Bruno Berselli, Feb 01 2013
(PARI) A055014(n)=sum(i=1, #n=digits(n), n[i]^5) \\ M. F. Hasler, Apr 12 2015
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Henry Bottomley, May 31 2000
STATUS
approved