|
%I #8 Feb 18 2015 11:03:00
%S 6,385,2800733,297194980009,1334735302498393188221,
%T 11619338480236377089380289447,
%U 10619210758832202863571310834864572265523,809071570100634918731540230003790633463788552651
%N Product of consecutive prime number of primes.
%e a(1) = 2 * 3 = 6 (the product of the first 2 primes).
%e a(2) = 5 * 7 * 11 = 385 (the product of the next 3 primes).
%e a(3) = 13 * 17 * 19 * 23 * 29 = 2800733 (product of next 5 primes).
%e a(4) = 31 * 37 * 41 * 43 * 47 * 53 * 59 = 297194980009 (product next 7 primes).
%t s[n_] := Sum[Prime[i], {i, n}]; Table[Product[Prime[j], {j, s[n - 1] + 1, s[n]}], {n, 8}] (* _Arkadiusz Wesolowski_, May 21 2013 *)
%K easy,nonn
%O 1,1
%A _Walter Carlini_, Jul 28 2006
%E a(4) corrected by _Arkadiusz Wesolowski_, May 21 2013
| 