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