OFFSET
1,1
COMMENTS
Prime(k) for k such that A345238(k)=0.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
a(3) = 113 is a term because 113+2, 113+2^2, ..., 113+2^6 are all composite and 2^7 > 113.
MAPLE
f:= proc(p) local k;
nops(select(isprime, [seq(p+2^k, k=1..ilog2(p))]))
end proc:
select(f=0, [seq(ithprime(i), i=2..1000)]);
MATHEMATICA
q[n_] := Module[{r = 2}, While[r < n && CompositeQ[n + r], r *= 2]; r > n]; Select[Range[3000], PrimeQ[#] && q[#] &] (* Amiram Eldar, Jun 11 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
J. M. Bergot and Robert Israel, Jun 11 2021
STATUS
approved