A360569 a(n) = floor(Product_{k=1..n} log(prime(k))).
0, 0, 1, 2, 5, 14, 41, 122, 383, 1291, 4436, 16019, 59491, 223758, 861503, 3420420, 13946890, 57333909, 241071466, 1027610488, 4408921123, 19264550934, 85126979960, 382104058297, 1748015630423, 8067302799724, 37389762142708, 174715958654122, 819653342623652
Offset: 1
Keywords
Links
- Vaclav Kotesovec, Table of n, a(n) for n = 1..1000
Crossrefs
Cf. A056690.
Programs
-
Mathematica
Table[Floor[Product[Log[Prime[k]], {k, 1, n}]], {n, 1, 40}]