login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A355885
a(n) is the smallest odd k such that k + 2^m is a de Polignac number for m = 1..n.
0
125, 903, 7385, 87453, 957453, 6777393, 21487809, 27035379, 1379985537, 5458529139, 15399643917, 32702289081
OFFSET
1,1
COMMENTS
All terms of this sequence are composite numbers.
Note that all positive values of a(n) + 2^i - 2^j are composite from i = 1 to n.
Conjecture: this sequence is infinite and bounded, namely a(n) = K for all n >= N.
If so, then K - 2^j is a Sierpiński number for every 1 < 2^j < K, by the dual Sierpiński conjecture. Note that each positive value of K + 2^i - 2^j is composite for every i > 0.
The number K can be a (partial) solution to the open problem: are there odd (composite) numbers k such that both |(k -+ 2^m)*2^n +- 1| are composite for every pair of positive integers m,n?
By the dual Sierpiński and Riesel conjectures, these are odd numbers k such that both ||k -+ 2^m| +- 2^n| are composite for m, n > 0.
The conditional theorem: by the dual Sierpiński conjecture and by the dual Riesel conjecture; if p is an odd prime and m is a positive integer, then there exist two numbers n such that both |(p -+ 2^m)*2^n +- 1| are prime.
So if such numbers k exist, they must be composite.
EXAMPLE
a(3) = 7385, because 7385 is the smallest number k such that k+2^1, k+2^2, k+2^3 are de Polignac numbers 7387, 7389, 7393.
MATHEMATICA
depolQ[n_] := OddQ[n] && Module[{m = 2}, While[m < n && CompositeQ[n - m], m *= 2]; m > n]; a[n_] := Module[{k = 1}, While[AnyTrue[Range[1, n], !depolQ[k + 2^#] &], k++]; k]; Array[a, 5] (* Amiram Eldar, Jul 20 2022 *)
CROSSREFS
KEYWORD
nonn,hard,more
AUTHOR
Thomas Ordowski, Jul 20 2022
EXTENSIONS
More terms from Amiram Eldar, Jul 20 2022
STATUS
approved