OFFSET
1,3
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..898
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
KEYWORD
nonn
AUTHOR
Artur Jasinski, Jan 19 2007
STATUS
approved