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
Keywords
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..190
Programs
-
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 *)
Extensions
More terms from Sascha Kurz, Jan 17 2003