login
A053619
a(n) = round(n/(log(n)-1) - pi(n)).
1
-1, -8, 28, 8, 5, 5, 3, 3, 4, 4, 3, 3, 2, 3, 3, 3, 2, 3, 2, 2, 2, 3, 2, 2, 2, 3, 3, 3, 2, 2, 2, 2, 2, 2, 3, 3, 2, 2, 3, 3, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 3, 2, 2, 2, 3, 3, 3, 2, 2, 2, 2, 2, 2, 2, 3, 2, 2, 2, 3, 2, 2, 1, 1, 2, 2, 2, 2, 1, 2, 2, 2, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 2, 2, 3, 3, 2, 2, 1
OFFSET
1,2
LINKS
MATHEMATICA
Table[Round[n/(Log[n] -1) -PrimePi[n]], {n, 1, 110}] (* G. C. Greubel, May 16 2019 *)
PROG
(PARI) {a(n) = round(n/(log(n)-1) - primepi(n))}; \\ G. C. Greubel, May 16 2019
(Magma) [Round(n/(Log(n)-1) - #PrimesUpTo(n)): n in [1..110]]; // G. C. Greubel, May 16 2019
(Sage) [round(n/(log(n)-1) - prime_pi(n)) for n in (1..110)] # G. C. Greubel, May 16 2019
CROSSREFS
KEYWORD
sign
AUTHOR
Henry Bottomley, Mar 21 2000
EXTENSIONS
More terms from James A. Sellers, Mar 23 2000
STATUS
approved