|
%I #15 Dec 28 2019 14:21:14
%S 3,21,651,82677,677207307,88762238935797,46536887964932201739,
%T 99937205886963012698207462133,
%U 230439507554803283449625488965353401397883657483,142635146517648430682283003170196535604142636808535322508273273161458426613
%N Product of first n Mersenne primes = Product_{k=1..n} A000668(k).
%H Harvey P. Dale, <a href="/A098918/b098918.txt">Table of n, a(n) for n = 1..15</a>
%e a(4) = 82677 because the first 4 Mersenne primes are 2^2-1=3, 2^3-1=7, 2^5-1=31, 2^7-1=127; 3*7*31*127 = 82677.
%t FoldList[Times,1,Select[Table[2^n-1,{n,Prime[Range[50]]}],PrimeQ]] (* _Harvey P. Dale_, Jul 10 2013 *)
%Y Cf. A000043, A000668.
%K nonn
%O 1,1
%A _Pierre CAMI_, Oct 17 2004
%E More terms from _Harvey P. Dale_, Jul 10 2013
|
