Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A004426
Arithmetic mean of digits of n (rounded down).
14
0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 0, 1, 1, 2, 2, 3, 3, 4, 4, 5, 1, 1, 2, 2, 3, 3, 4, 4, 5, 5, 1, 2, 2, 3, 3, 4, 4, 5, 5, 6, 2, 2, 3, 3, 4, 4, 5, 5, 6, 6, 2, 3, 3, 4, 4, 5, 5, 6, 6, 7, 3, 3, 4, 4, 5, 5, 6, 6, 7, 7, 3, 4, 4, 5, 5, 6, 6, 7, 7, 8, 4, 4, 5, 5, 6, 6, 7, 7, 8, 8, 4, 5, 5, 6, 6, 7, 7, 8, 8, 9, 0, 0, 1, 1, 1, 2, 2, 2
OFFSET
0,3
COMMENTS
From Reinhard Zumkeller, May 27 2010: (Start)
A004427(n) <= a(n);
a(A061383(n)) = A004427(A061383(n));
a(A000040(n)) = A074461(n). (End)
FORMULA
a(n) = floor(A007953(n)/A055642(n)). - Reinhard Zumkeller, May 27 2010
MATHEMATICA
Table[Floor[Mean[IntegerDigits[n]]], {n, 0, 99}] (* Enrique Pérez Herrero, Sep 28 2013 *)
PROG
(Haskell)
a004426 n = (a007953 n) `div` (a055642 n)
-- Reinhard Zumkeller, Jun 18 2013
CROSSREFS
Cf. A175688.
Sequence in context: A004428 A004429 A338379 * A262188 A358647 A004430
KEYWORD
nonn,base
STATUS
approved