login
A089223
a(n) = floor(Product_{i=1..n} log(prime(i+1))/log(i+1)).
0
1, 2, 3, 4, 6, 10, 14, 20, 29, 42, 62, 90, 128, 182, 261, 376, 535, 764, 1087, 1532, 2166, 3052, 4311, 6128, 8680, 12207, 17118, 23849, 33148, 46761, 65779, 92558, 129518, 182289, 255222, 357379, 500442, 699118, 976654, 1364261, 1897468, 2649692
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
Sequence in context: A318558 A347867 A256248 * A240057 A279467 A094861
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Dec 10 2003
EXTENSIONS
Edited by N. J. A. Sloane, Nov 26 2015
STATUS
approved