OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
149 is a twin prime, 149-2^1 through 149-2^7 are all nonprime.
MATHEMATICA
seqQ[p_] := PrimeQ[p] && PrimeQ[p + 2] && Module[{k = 2}, While[k < p && !PrimeQ[p - k], k *= 2]; k > p]; Select[Range[10^4], seqQ] (* Amiram Eldar, Dec 24 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Nov 09 2010
EXTENSIONS
Edited and extended by D. S. McNeil, Nov 17 2010
More terms from Amiram Eldar, Dec 24 2019
STATUS
approved