A067111 Floor[ Product of first n primes / Sum of first n primes].

1, 1, 3, 12, 82, 732, 8801, 125970, 2230928, 50152660, 1253503063, 37668721496, 1278362451795, 46557869507722, 1874663971306376, 85535849021496180, 4369909886714119634, 234108545627558824317, 13835073153310329323730

Offset

1,3

Links

Harry J. Smith, Table of n, a(n) for n = 1..100

Formula

a(n) = floor(A002110(n)/A007504(n)). - Michel Marcus, Jul 16 2020

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

Cf. A002110 (product) and A007504 (sum) of first n primes.

Sequence in context: A357665 A224608 A023881 * A171186 A229421 A376012

Adjacent sequences: A067108 A067109 A067110 * A067112 A067113 A067114

Keyword

easy,nonn

Author

Amarnath Murthy, Jan 08 2002

Extensions

More terms from Robert G. Wilson v, Jan 08 2002

Status

approved