A004426 Arithmetic mean of digits of n (rounded down).

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

Author

N. J. A. Sloane

Keywords

• nonn
• base

Comments

From Reinhard Zumkeller, May 27 2010: (Start)

A004427(n) <= a(n);

a(A061383(n)) = A004427(A061383(n));

a(A000040(n)) = A074461(n). (End)

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 0..10000
• Index entries for Colombian or self numbers and related sequences

Crossrefs

Cf. A175688.

Programs

Haskell

a004426 n = (a007953 n) `div` (a055642 n)
-- Reinhard Zumkeller, Jun 18 2013

Mathematica

Table[Floor[Mean[IntegerDigits[n]]], {n, 0, 99}] (* Enrique Pérez Herrero, Sep 28 2013 *)

Formula

a(n) = floor(A007953(n)/A055642(n)). - Reinhard Zumkeller, May 27 2010