A077144 a(n) = floor(product of next n composite numbers / sum of next n composite numbers).

1, 3, 34, 960, 49500, 3538080, 404020145, 73780761600, 15590323138443, 4627678068946516, 1712182437990539536, 709629581496779727567, 434911027744132649793916, 234745940945367262055489361

Offset: 1

Author

Amarnath Murthy, Oct 30 2002

Keywords

• nonn

Links

• Harvey P. Dale, Table of n, a(n) for n = 1..225

Crossrefs

Cf. A077143, A077145.

Programs

Mathematica

Module[{nn=200,cmps,tr},cmps=Select[Range[nn],CompositeQ];tr=Floor[(Sqrt[8Length[cmps]+1]-1)/2];Floor[(Times@@#)/ Total[ #]]&/@ TakeList[ cmps,Range[tr]]] (* Harvey P. Dale, Nov 03 2024 *)

PARI

k=3; for(n=1, 20, p=1; s=0; for(i=1, n, while(isprime(k), k=k+1); p=p*k; s=s+k; k=k+1); print1(floor(p/s)","))

Extensions

More terms from Ralf Stephan, Mar 24 2003