login
A230508
Positive integers m with 2^m + p(m) prime, where p(.) is the partition function (A000041).
0
1, 3, 13, 14, 39, 51, 63, 146, 229, 261, 440, 587, 621, 636, 666, 1377, 2686, 3069, 3712, 13604
OFFSET
1,2
COMMENTS
It seems that there are only finitely many primes of the form 2^m + p(m).
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