login
A127604
Integer part of 7th root of product of first n primes.
4
1, 1, 1, 2, 3, 4, 6, 9, 15, 25, 41, 68, 117, 200, 347, 613, 1097, 1975, 3601, 6621, 12221, 22814, 42891, 81443, 156560, 302701, 586897, 1144127, 2236326, 4393717, 8777595, 17613387, 35570395, 71983616, 147125801, 301280666, 620399178, 1284393250
OFFSET
1,4
MATHEMATICA
a = {}; Do[b = 1; Do[b = b Prime[x], {x, 1, n}]; AppendTo[a, Floor[b^(1/7)]], {n, 1, 50}]; a
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Jan 19 2007
STATUS
approved