A230508 - OEIS

A230508

Positive integers m with 2^m + p(m) prime, where p(.) is the partition function (A000041).

1, 3, 13, 14, 39, 51, 63, 146, 229, 261, 440, 587, 621, 636, 666, 1377, 2686, 3069, 3712, 13604

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

COMMENTS

It seems that there are only finitely many primes of the form 2^m + p(m).

LINKS

EXAMPLE

a(1) = 1 since 2^1 + p(1) = 2 + 1 = 3 is prime.

MATHEMATICA

n=0; Do[If[PrimeQ[2^m+PartitionsP[m]], n=n+1; Print[n, " ", m]], {m, 1, 10000}]

CROSSREFS

KEYWORD

nonn

AUTHOR

Zhi-Wei Sun, Jan 25 2014

STATUS

approved