%I
%S 0,6931,10986,13863,16094,17918,19459,20794,21972,23026,23979,24849,
%T 25649,26391,27081,27726,28332,28904,29444,29957,30445,30910,31355,
%U 31781,32189,32581,32958,33322,33673,34012,34340,34657,34965,35264,35553,35835
%N a(n) = 10000*log(n) rounded to nearest integer.
%H Vincenzo Librandi, <a href="/A004244/b004244.txt">Table of n, a(n) for n = 1..3000</a>
%p Digits:=1500: A004244:=n>round(10000*log(n)): seq(A004244(n), n=1..60); # _Wesley Ivan Hurt_, Apr 18 2017
%t Table[Round[10000 Log[n]], {n, 40}] (* _Vincenzo Librandi_, Apr 19 2017 *)
%o (MAGMA) [Round(10000*Log(n)): n in [1..40]]; // _Vincenzo Librandi_, Apr 19 2017
%K nonn
%O 1,2
%A _N. J. A. Sloane_
