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
Keywords
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..225
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