[go: up one dir, main page]

login
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