OFFSET
1,3
LINKS
Harry J. Smith, Table of n, a(n) for n = 1..100
FORMULA
EXAMPLE
a(4) = floor(2*3*5*7/17) = floor(210/17) = 12.
MATHEMATICA
Table[ Floor[ Product[ Prime[i], {i, 1, n} ] / Sum[ Prime[i], {i, 1, n} ]], {n, 1, 22} ]
Module[{nn=20, p, pr, sm}, p=Prime[Range[nn]]; pr=FoldList[Times, p]; sm=Accumulate[p]; Floor[ pr/sm]] (* Harvey P. Dale, Sep 01 2023 *)
PROG
(PARI) { t=1; s=0; for (n=1, 100, p=prime(n); t*=p; s+=p; write("b067111.txt", n, " ", floor(t/s)) ) } \\ Harry J. Smith, May 23 2010
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Amarnath Murthy, Jan 08 2002
EXTENSIONS
More terms from Robert G. Wilson v, Jan 08 2002
STATUS
approved