login
A090379
a(n) = abs(floor((pi(n)-2)/(2-pi(n)+pi(n-1)))), where pi(n) is A000720(n).
0
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
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
KEYWORD
nonn,less
AUTHOR
Roger L. Bagula, Jan 29 2004
STATUS
approved