OFFSET
1,2
MATHEMATICA
f[n_]=Floor[Sqrt[((Prime[n]+PrimePi[n])/2)^2+Prime[n]*PrimePi[n]]]
a=Table[f[n], {n, 1, 200}]
CROSSREFS
KEYWORD
nonn,less
AUTHOR
Roger L. Bagula, Jan 03 2004
STATUS
approved