|
%I #31 Sep 21 2017 08:07:39
%S 0,0,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,
%T 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,4,4,4,4,4,4,4,4,4,4,4,4,4,4,
%U 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
%N a(n) = floor(log(n)).
%C Equals A004233(n) - 1 for n > 1.
%C Does not satisfy Benford's law [Whyman et al., 2016] - _N. J. A. Sloane_, Feb 12 2017
%H T. D. Noe, <a href="/A000195/b000195.txt">Table of n, a(n) for n=1..10000</a>
%H G. Whyman, N. Ohtori, E. Shulzinger, Ed. Bormashenko, <a href="https://doi.org/10.1016/j.physa.2016.06.054">Revisiting the Benford law: When the Benford-like distribution of leading digits in sets of numerical data is expectable?</a>, Physica A: Statistical Mechanics and its Applications, 461, 595-601 (2016).
%H <a href="/index/Be#Benford">Index entries for sequences related to Benford's law</a>
%p Digits := 100; f := n->floor(evalf(log(n))); [ seq(f(n), n=1..100) ];
%t Floor@ Log@ Range@ 105 (* _Michael De Vlieger_, Aug 21 2017 *)
%o (PARI) a(n)=floor(log(n))
%o (Haskell)
%o a000195 = floor . log . fromIntegral -- _Reinhard Zumkeller_, Mar 17 2015
%Y Cf. A000193 (nearest integer to log(n)), A004233.
%Y Cf. A000523.
%K nonn,easy
%O 1,8
%A _N. J. A. Sloane_
|
