OFFSET
1,4
MATHEMATICA
a = {}; Do[b = 1; Do[b = b Prime[x], {x, 1, n}]; AppendTo[a, Floor[b^(1/6)]], {n, 1, 50}]; a
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Jan 19 2007
STATUS
approved