A077145 -id:A077145 - cp's OEIS frontend

A077143 a(n) = floor(product of next n primes / sum of next n primes).

1, 1, 32, 2448, 477595, 172497380, 95614528147, 83140881147429, 108654322319421237, 182417905018755002030, 368053025250427620488738, 1203788517781390541953924706, 3772396790098755787608470015082

Offset: 1

Amarnath Murthy, Oct 30 2002

nonn

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

Cf. A077144, A077145.

seq(floor(evalf(product(ithprime(i),i=n*(n-1)/2+1..n*(n+1)/2)/sum(ithprime(i),i=n*(n-1)/2+1..n*(n+1)/2),1000)),n=1..20);

With[{nn=15},Floor[(Times@@#)/Total[#]]&/@TakeList[Prime[Range[(nn(nn+1))/ 2]],Range[nn]]] (* Requires Mathematica version 11 or later *) (* Harvey P. Dale, Jul 02 2018 *)

More terms from Sascha Kurz, Jan 17 2003

A077144 a(n) = floor(product of next n composite numbers / sum of next n composite numbers).

Original entry on oeis.org

1, 3, 34, 960, 49500, 3538080, 404020145, 73780761600, 15590323138443, 4627678068946516, 1712182437990539536, 709629581496779727567, 434911027744132649793916, 234745940945367262055489361

Offset: 1

Amarnath Murthy, Oct 30 2002

nonn

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

Cf. A077143, A077145.

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

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

More terms from Ralf Stephan, Mar 24 2003

cp's OEIS Frontend

A077143 a(n) = floor(product of next n primes / sum of next n primes).

Views

Author

Keywords

Links

Crossrefs

Programs

Maple

Mathematica

Extensions