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,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)

Links

Reinhard Zumkeller, Table of n, a(n) for n = 0..10000

Index entries for Colombian or self numbers and related sequences

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

Adjacent sequences: A004423 A004424 A004425 * A004427 A004428 A004429

Keyword

nonn,base

Author

N. J. A. Sloane

Status

approved