login
Floor[ product of next n composite numbers / sum of next n composite numbers].
3

%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