OFFSET
1,1
MATHEMATICA
C0=Floor[3*Log[2]*n/(2*Log[2])] g[n_]:=Prime[Prime[C0]] digits=200 b=Table[g[n], {n, 2, digits}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Nov 28 2004
STATUS
approved