OFFSET
1,1
COMMENTS
a(7) > 48, if it exists. - Amiram Eldar, Oct 19 2024
MATHEMATICA
Position[FoldList[Times, MersennePrimeExponent[Range[30]]]-1, _?PrimeQ]//Flatten (* Harvey P. Dale, Oct 01 2023 *)
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
KEYWORD
nonn,more,changed
AUTHOR
G. L. Honaker, Jr., Sep 18 2000
STATUS
approved