A135325 Smallest n such that pi(n)=Floor[n/log((n-pi(n))/e)].

59473, 59671, 59699, 59707, 59729, 59743, 59747, 59755, 59771, 59779, 59791, 59799, 59810, 152993, 153001, 155801, 155809, 155821, 155833, 155849, 155853, 155877, 155889, 155913, 155925, 210533, 211891, 211933, 211943, 211949, 211969

Offset

1,1

Links

Table of n, a(n) for n=1..31.

Eric Weisstein's World of Mathematics, Prime Number Theorem.

Mathematica

j=0; Do[k=Floor[n/Log[(n-PrimePi[n])/E]]; If[PrimePi[n]==k&&k>j, Print[n]; j=k], {n, 1, 10^7, 1}]

Crossrefs

Cf. A057834, A058289, A000720.

Sequence in context: A333056 A224972 A104919 * A031685 A238077 A344358

Adjacent sequences: A135322 A135323 A135324 * A135326 A135327 A135328

Keyword

nonn

Author

Manuel Valdivia, Dec 07 2007

Status

approved