OFFSET
1,4
MATHEMATICA
a = {}; Do[b = 1; Do[b = b Prime[x], {x, 1, n}]; AppendTo[a, Floor[b^(1/5)]], {n, 1, 50}]; a
Floor[Surd[#, 5]]&/@FoldList[Times, Prime[Range[40]]] (* Harvey P. Dale, Nov 16 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Jan 19 2007
STATUS
approved