OFFSET
1,1
COMMENTS
Shows how the primorial function grows in comparison to the factorial function.
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1000
Eric Weisstein's World of Mathematics, Prime Products
FORMULA
a(n) = round((Product_{k=1..n} prime(k))/factorial(n)).
EXAMPLE
a(5)= round((2*3*5*7*11)/(1*2*3*4*5)) = round(2310/120) = round(19.25) = 19.
MATHEMATICA
Table[Round[Product[Prime[k], {k, 1, n}]/n!], {n, 1, 50}] (* G. C. Greubel, Oct 25 2017 *)
With[{nn=30}, Round[#[[1]]/#[[2]]]&/@Thread[{FoldList[Times, Prime[ Range[ nn]]], Range[nn]!}]] (* Harvey P. Dale, Apr 06 2019 *)
PROG
(PARI) for(n=1, 50, print1(round(prod(k=1, n, prime(k))/n!), ", ")) \\ G. C. Greubel, Oct 25 2017
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Mitch Cervinka (puritan(AT)toast.net), Oct 13 2006
EXTENSIONS
Terms a(18) onward added by G. C. Greubel, Oct 25 2017
STATUS
approved