login
A127600
Integer part of cube root of product of first n primes.
7
1, 1, 3, 5, 13, 31, 79, 213, 606, 1863, 5853, 19505, 67257, 235631, 850352, 3194167, 12434883, 48949883, 198812307, 823245530, 3440622312, 14763161313, 64397952985, 287520444756, 1321070444052, 6152237618431, 28838910052201
OFFSET
1,3
LINKS
MAPLE
Res:= NULL:
p:= 1: r:= 1:
for n from 1 to 50 do
p:=nextprime(p);
r:= r*p;
Res:= Res, floor(r^(1/3));
od:
Res; # Robert Israel, Nov 10 2017
MATHEMATICA
a = {}; Do[b = 1; Do[b = b Prime[x], {x, 1, n}]; AppendTo[a, Floor[b^(1/3)]], {n, 1, 100}]; a (* Artur Jasinski *)
Floor[Surd[#, 3]]&/@Rest[FoldList[Times, 1, Prime[Range[30]]]] (* Harvey P. Dale, Jun 23 2014 *)
PROG
(PARI) a(n) = sqrtnint(prod(k=1, n, prime(k)), 3); \\ Michel Marcus, Nov 10 2017
CROSSREFS
Sequence in context: A350392 A281874 A135532 * A262237 A051401 A304357
KEYWORD
nonn
AUTHOR
Artur Jasinski, Jan 19 2007
STATUS
approved