A057224 Numbers k such that (Product of first k Mersenne prime exponents) + 1 is prime.

1, 2, 3, 4, 5, 6, 13, 17

Offset

1,2

Comments

a(9) > 48, if it exists. - Amiram Eldar, Oct 19 2024

Links

Table of n, a(n) for n=1..8.

Mathematica

Position[FoldList[Times, MersennePrimeExponent[Range[48]]] + 1, _?PrimeQ] // Flatten (* Amiram Eldar, Oct 19 2024 *)

Prog

(PARI) lista(v) = {for (n=1, #v, if (isprime(prod(k=1, n, v[k]) + 1), print1(n, ", ")); ); } \\ with v=A000043; Michel Marcus, Jan 07 2014

Crossrefs

Cf. A000043, A057225.

Sequence in context: A072564 A223938 A222194 * A153695 A300857 A255261

Adjacent sequences: A057221 A057222 A057223 * A057225 A057226 A057227

Keyword

nonn,more

Author

G. L. Honaker, Jr., Sep 18 2000

Status

approved