OFFSET
1,12
COMMENTS
It appears that the sequence of odd numbers k*2^m+1 such that k + 2^m is prime (A332075) mainly consists of primes, and many primes are in this sequence. This sequence attempts to measure in how far this remains true for large numbers.
LINKS
T. Ordowski, Problem, post to the SeqFan list, Aug 11 2020.
MATHEMATICA
a[n_] := Module[{count = 0, p = NextPrime[2^n]}, While[!PrimeQ[(m = 2^IntegerExponent[p - 1, 2]) + (p - 1)/m], count++; p = NextPrime[p]]; count]; s = Array[a, 100] (* Amiram Eldar, Aug 14 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
M. F. Hasler, Aug 13 2020
STATUS
approved