A127602 Integer part of 5th root of product of first n primes.

1, 1, 1, 2, 4, 7, 13, 24, 46, 91, 182, 375, 788, 1672, 3612, 7991, 18062, 41100, 95294, 223520, 527208, 1263303, 3057195, 7502417, 18730768, 47143287, 119120718, 303294169, 775085050, 1995101748, 5256852524, 13937345067, 37284143091

Offset: 1

Author

Artur Jasinski, Jan 19 2007

Keywords

• nonn

Crossrefs

Cf. A002110, A060797, A127600, A127601, A127603, A127604.

Programs

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 *)