|
%I #14 Aug 24 2022 19:59:55
%S 4,28,175,1244,9628,78625,664916,5762207,50849233,455055612,
%T 4118066398,37607950279,346065645808,3204942065690,29844571475285,
%U 279238344248555,2623557165610820,24739954309690413,234057667376222380,2220819602783663481
%N Integer nearest to Li(10^n) - Li(3), where Li(x) = integral(0..x, dt/log(t)).
%H Vladimir Pletser, <a href="/A223166/b223166.txt">Table of n, a(n) for n = 1..1000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/PrimeCountingFunction.html">Prime Counting Function</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/LogarithmicIntegral.html">Logarithmic Integral</a>
%F a(n) = round(Li( 10^n)-Li(3)).
%p seq(round(evalf(integrate(1/log(t), t=3..10^n))), n=1..1000);
%t Table[Round[LogIntegral[10^n]-LogIntegral[3]],{n,30}] (* _Harvey P. Dale_, Aug 24 2022 *)
%Y Cf. A057754, A006880, A190802.
%K nonn
%O 1,1
%A _Vladimir Pletser_, Mar 16 2013
|
