|
%I #16 Nov 28 2021 03:28:14
%S 1,1,1,2,4,7,13,24,46,91,182,375,788,1672,3612,7991,18062,41100,95294,
%T 223520,527208,1263303,3057195,7502417,18730768,47143287,119120718,
%U 303294169,775085050,1995101748,5256852524,13937345067,37284143091
%N Integer part of 5th root of product of first n primes.
%t a = {}; Do[b = 1; Do[b = b Prime[x], {x, 1, n}]; AppendTo[a, Floor[b^(1/5)]], {n, 1, 50}]; a
%t Floor[Surd[#,5]]&/@FoldList[Times,Prime[Range[40]]] (* _Harvey P. Dale_, Nov 16 2017 *)
%Y Cf. A002110, A060797, A127600, A127601, A127603, A127604.
%K nonn
%O 1,4
%A _Artur Jasinski_, Jan 19 2007
|
