A139300 a(n) = 2^(2p - 1)/8, where p is the n-th Mersenne prime A000668(n).
4, 1024, 288230376151711744, 1809251394333065553493296640760748560207343510400633813116524750123642650624
Offset: 1
Keywords
Crossrefs
Programs
-
Mathematica
a[n_] := 2^(2^(MersennePrimeExponent[n] + 1) - 6); Array[a, 4] (* Amiram Eldar, Jul 10 2025 *)
Extensions
a(4) from Amiram Eldar, Jul 10 2025