OFFSET
1,2
MATHEMATICA
f[n_]=Log[Prime[n+1]]/Log[n+1] g[n_]=Product[f[i], {i, 1, n}] digits=100 a=Table[Floor[g[n]], {n, 1, digits}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Dec 10 2003
EXTENSIONS
Edited by N. J. A. Sloane, Nov 26 2015
STATUS
approved