%I #9 Nov 03 2024 13:21:16
%S 1,3,34,960,49500,3538080,404020145,73780761600,15590323138443,
%T 4627678068946516,1712182437990539536,709629581496779727567,
%U 434911027744132649793916,234745940945367262055489361
%N Floor[ product of next n composite numbers / sum of next n composite numbers].
%H Harvey P. Dale, <a href="/A077144/b077144.txt">Table of n, a(n) for n = 1..225</a>
%t 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 *)
%o (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)","))
%Y Cf. A077143, A077145.
%K nonn,changed
%O 1,2
%A _Amarnath Murthy_, Oct 30 2002
%E More terms from _Ralf Stephan_, Mar 24 2003