A004426 - OEIS

%I #25 Oct 26 2023 00:20:03

%S 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,

%T 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,

%U 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

%N Arithmetic mean of digits of n (rounded down).

%C From _Reinhard Zumkeller_, May 27 2010: (Start)

%C A004427(n) <= a(n);

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

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

%H Reinhard Zumkeller, <a href="/A004426/b004426.txt">Table of n, a(n) for n = 0..10000</a>

%H <a href="/index/Coi#Colombian">Index entries for Colombian or self numbers and related sequences</a>

%F a(n) = floor(A007953(n)/A055642(n)). - _Reinhard Zumkeller_, May 27 2010

%t Table[Floor[Mean[IntegerDigits[n]]], {n, 0, 99}] (* _Enrique Pérez Herrero_, Sep 28 2013 *)

%o (Haskell)

%o a004426 n = (a007953 n) `div` (a055642 n)

%o -- _Reinhard Zumkeller_, Jun 18 2013

%Y Cf. A175688.

%K nonn,base

%O 0,3

%A _N. J. A. Sloane_