A090379 a(n) = abs(floor((pi(n)-2)/(2-pi(n)+pi(n-1)))), where pi(n) is A000720(n).

1, 1, 0, 0, 1, 0, 2, 1, 1, 1, 3, 1, 4, 2, 2, 2, 5, 2, 6, 3, 3, 3, 7, 3, 3, 3, 3, 3, 8, 4, 9, 4, 4, 4, 4, 4, 10, 5, 5, 5, 11, 5, 12, 6, 6, 6, 13, 6, 6, 6, 6, 6, 14, 7, 7, 7, 7, 7, 15, 7, 16, 8, 8, 8, 8, 8, 17, 8, 8, 8, 18, 9, 19, 9, 9, 9, 9, 9, 20, 10, 10, 10, 21, 10, 10, 10, 10, 10, 22, 11, 11, 11

Offset

1,7

Links

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

Mathematica

a[n_] := Abs[Floor[(PrimePi[n] - 2)/(2 - PrimePi[n] + PrimePi[n - 1])]];
Table[ a[n], {n, 1, 92}]

Crossrefs

Sequence in context: A123541 A345062 A324537 * A254655 A344971 A077254

Adjacent sequences: A090376 A090377 A090378 * A090380 A090381 A090382

Keyword

nonn,less

Author

Roger L. Bagula, Jan 29 2004

Status

approved