%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