A098567 Smallest prime p such that p# + Mersenne-prime(n) is prime.

2, 3, 3, 5, 5, 5, 7, 7, 31, 5, 59, 5, 11, 137, 397, 211, 2851, 601, 373, 271, 17467, 127, 1657, 52951, 6547, 11971, 37489

Offset

1,1

Links

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

Mathematica

f[p_] := Module[{k = 2, q = 2}, While[!PrimeQ[k + p], q = NextPrime[q]; k *= q]; q]; f /@ (2^MersennePrimeExponent[Range[10]] - 1) (* Amiram Eldar, Jul 23 2021 *)

Crossrefs

Cf. A000043, A000668, A002110, A098566.

Sequence in context: A076367 A362840 A302607 * A086162 A036703 A306253

Adjacent sequences: A098564 A098565 A098566 * A098568 A098569 A098570

Keyword

nonn,more

Author

Pierre CAMI, Sep 15 2004

Extensions

a(21)-a(27) from Amiram Eldar, Jul 23 2021

Status

approved