OFFSET
1,1
MATHEMATICA
Table[If[PrimeQ[n], PrimePi[n], Prime[n]], {n, 1, 200}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Nov 04 2009
STATUS
approved