|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|