OFFSET
0,2
MATHEMATICA
a = {1, 2}; Do[AppendTo[a, Prime[PrimePi[a[[ -1]]*a[[ -2]]]]], {9}]; a (* Stefan Steinerberger, Dec 06 2008 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Dec 04 2008
EXTENSIONS
Extended by Ray Chandler and Stefan Steinerberger, Dec 05 2008
STATUS
approved