A061771 Primes p(k) such that p(k+1) - p(k) = 2^m for some m (smaller of a pair of consecutive primes which differ by a power of 2).

2, 3, 5, 7, 11, 13, 17, 19, 29, 37, 41, 43, 59, 67, 71, 79, 89, 97, 101, 103, 107, 109, 127, 137, 149, 163, 179, 191, 193, 197, 223, 227, 229, 239, 269, 277, 281, 307, 311, 313, 347, 349, 359, 379, 389, 397, 401, 419, 431, 439, 449, 457, 461, 463, 479, 487, 491

Offset

1,1

Links

Charles R Greathouse IV, Table of n, a(n) for n = 1..10000

Example

89 is a term as the next prime 97 differs from it by 8, a power of 2.

Mathematica

Select[Partition[Prime[Range[100]], 2, 1], IntegerQ[Log2[#[[2]]-#[[1]]]]&][[All, 1]] (* Harvey P. Dale, Apr 22 2019 *)

Prog

(PARI) ispow2(n)=n>>valuation(n, 2)==1
v=List(); p=2; forprime(q=3, 1e6, if(ispow2(q-p), listput(v, p)); p=q); Vec(v) \\ Charles R Greathouse IV, Sep 18 2013

Crossrefs

Sequence in context: A004051 A127047 A119615 * A124589 A079150 A177000

Adjacent sequences: A061768 A061769 A061770 * A061772 A061773 A061774

Keyword

nonn,easy

Author

Amarnath Murthy, May 22 2001

Extensions

Extended by Patrick De Geest, May 27 2001

Status

approved