A077143 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,3

Links

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

Maple

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

Mathematica

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

Crossrefs

Cf. A077144, A077145.

Sequence in context: A185968 A247999 A222742 * A198284 A230573 A111923

Adjacent sequences: A077140 A077141 A077142 * A077144 A077145 A077146

Keyword

nonn

Author

Amarnath Murthy, Oct 30 2002

Extensions

More terms from Sascha Kurz, Jan 17 2003

Status

approved