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

%I #9 Jul 02 2018 16:06:49

%S 1,1,32,2448,477595,172497380,95614528147,83140881147429,

%T 108654322319421237,182417905018755002030,368053025250427620488738,

%U 1203788517781390541953924706,3772396790098755787608470015082

%N Floor[ product of next n primes /sum of next n primes].

%H Harvey P. Dale, <a href="/A077143/b077143.txt">Table of n, a(n) for n = 1..190</a>

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

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

%Y Cf. A077144, A077145.

%K nonn

%O 1,3

%A _Amarnath Murthy_, Oct 30 2002

%E More terms from _Sascha Kurz_, Jan 17 2003