OFFSET
0,2
COMMENTS
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 0..10000
EXAMPLE
For n=8379: A004427(n) = ceiling((8+3+7+9)/4) = 7; so a(8379) = 10*8379 + 7 = 83797.
MATHEMATICA
amd[n_]:=Module[{m=Ceiling[Mean[IntegerDigits[n]]]}, n*10^IntegerLength[ m]+ m]; Array[amd, 60, 0] (* Harvey P. Dale, Aug 12 2015 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Reinhard Zumkeller, May 27 2010
STATUS
approved