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).
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