

A057793


Integer nearest Riemann(10^n), where Riemann(x) = Sum of ( mu(k)/k * Integral Log( x^(1/k) ) for k = 1 to infinity.


7



5, 26, 168, 1227, 9587, 78527, 664667, 5761552, 50847455, 455050683, 4118052495, 37607910542, 346065531066, 3204941731602, 29844570495887, 279238341360977, 2623557157055978, 24739954284239494, 234057667300228940
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

Riemann(x) is Riemann's approximation for the number of primes less than x.


REFERENCES

John H. Conway and R. K. Guy, "The Book of Numbers," Copernicus, an imprint of SpringerVerlag, NY, 1996, page 144146.


LINKS

Vladimir Pletser, Table of n, a(n) for n = 1..100
Eric Weisstein's World of Mathematics, Riemann Prime Counting Function


MATHEMATICA

Rie[n_Integer] := Sum[N[LogIntegral[n^(1/k)]*MoebiusMu[k]/k, 36], {k, 1, 5!}]; Table[Round[Rie[10^n]], {n, 1, 21}]
Table[Round@N[RiemannR[10^n], 50], {n, 21}] (* Arkadiusz Wesolowski, Dec 30 2011 *)


CROSSREFS

Sequence in context: A185108 A302442 A209672 * A090226 A094422 A179513
Adjacent sequences: A057790 A057791 A057792 * A057794 A057795 A057796


KEYWORD

nonn


AUTHOR

Robert G. Wilson v, Nov 04 2000


EXTENSIONS

a(1) corrected by Chris Katscher (spatch3(AT)yahoo.com), May 25 2003
a(20) to a(100) from Vladimir Pletser, Aug 10 2013


STATUS

approved



