login
A397306
Positive numbers m such that m - 2^k is a prime for exactly one value of k > 0 with 2^k < m.
2
4, 5, 6, 10, 17, 18, 29, 34, 41, 53, 59, 65, 66, 89, 97, 119, 130, 137, 163, 179, 185, 191, 193, 209, 217, 219, 221, 223, 233, 239, 247, 253, 258, 269, 281, 305, 307, 311, 343, 359, 389, 403, 407, 415, 419, 427, 431, 457, 491, 505, 514, 521, 533, 545, 547, 557, 569, 575, 581
OFFSET
1,1
COMMENTS
With r(m) = #{k > 0 : 2^k < m, m-2^k is prime}, this sequence gives terms satisfying r(m) = 1.
When m is even, then m-2^k is even for all k>0; as the only even prime is 2, necessarily, subsequence of even terms correspond to A052548 \ {3}.
Subsequence of odd terms is A283806 \ {3} (see example section).
FORMULA
Equals (Union of A052548 and A283806) \ {3}.
EXAMPLE
3 is not a term because 3-2^1 = 1 that is not prime.
18 is a term since: 18-2=16, 18-4=14, 18-8=10, 18-16=2, and only 2 is prime.
29 is a term since: 29-2=27, 29-4=25, 29-8=21, 29-16=13, and only 13 is prime.
MATHEMATICA
q[m_] := Sum[Boole[PrimeQ[m-2^k]], {k, 1, Floor[Log2[m]]}] == 1; Select[Range[600], q] (* Amiram Eldar, Jun 29 2026 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Bernard Schott, Jun 28 2026
STATUS
approved