|
%I #12 Oct 03 2017 20:24:10
%S 27,343,29791,2048383,549554511871,2251748274470911,
%T 144114363443707903,9903520300447984150353281023,
%U 12259964326927110850916040267783483001021757281745764351
%N Cubes of Mersenne primes.
%H G. C. Greubel, <a href="/A133050/b133050.txt">Table of n, a(n) for n = 1..14</a>
%F a(n) = A000668(n)^3.
%e a(3)=29791 because the 3rd Mersenne prime is 31 and 31^3=29791.
%t Select[2^Prime[Range[50]]-1,PrimeQ]^3 (* _Harvey P. Dale_, Jul 10 2012 *)
%o (PARI) forprime(p=2, 1e2, if(isprime(2^p-1), print1((2^p-1)^3", "))); \\ _Altug Alkan_, Oct 03 2017
%Y Cf. A000578, A030078. Mersenne primes: A000668.
%K nonn
%O 1,1
%A _Omar E. Pol_, Oct 30 2007
%E More terms from _Olaf Voß_, Feb 13 2008
| 