%I #19 Jun 28 2024 05:26:18
%S 0,1,1,1,2,2,2,2,2,2,2,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,4,
%T 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,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 Nearest integer to log n.
%H T. D. Noe, <a href="/A000193/b000193.txt">Table of n, a(n) for n=1..10000</a>
%p Digits := 100; f := n->round(evalf(log(n))); [ seq(f(n), n=1..100) ];
%t Round[Log[Range[100]]] (* _Paolo Xausa_, Jun 28 2024 *)
%o (PARI) a(n)=round(log(n))
%o (Haskell)
%o a000193 = round . log . fromIntegral -- _Reinhard Zumkeller_, Mar 17 2015
%Y Cf. A000195, A004233.
%K nonn,easy
%O 1,5
%A _N. J. A. Sloane_