OFFSET
1,7
MATHEMATICA
a[n_] := Abs[Floor[(PrimePi[n] - 2)/(2 - PrimePi[n] + PrimePi[n - 1])]];
Table[ a[n], {n, 1, 92}]
CROSSREFS
KEYWORD
nonn,less
AUTHOR
Roger L. Bagula, Jan 29 2004
STATUS
approved