A077144 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,2

Links

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

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 *)

Prog

(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)", "))

Crossrefs

Cf. A077143, A077145.

Sequence in context: A274744 A222869 A069718 * A222778 A101633 A250093

Adjacent sequences: A077141 A077142 A077143 * A077145 A077146 A077147

Keyword

nonn

Author

Amarnath Murthy, Oct 30 2002

Extensions

More terms from Ralf Stephan, Mar 24 2003

Status

approved