A077144 - OEIS

%I #13 Nov 18 2024 12:06:33

%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

%O 1,2

%A _Amarnath Murthy_, Oct 30 2002

%E More terms from _Ralf Stephan_, Mar 24 2003