A082508 Differences between consecutive primes that are powers of 2 in order of their appearance. Differences the are not powers of 2 are deleted from A001223.

1, 2, 2, 4, 2, 4, 2, 4, 2, 4, 2, 4, 2, 4, 2, 4, 8, 4, 2, 4, 2, 4, 4, 2, 2, 4, 2, 2, 4, 2, 4, 2, 4, 2, 2, 4, 2, 4, 2, 4, 2, 4, 8, 4, 8, 4, 8, 2, 2, 4, 8, 4, 2, 4, 8, 4, 8, 4, 2, 2, 2, 4, 2, 2, 4, 2, 4, 8, 8, 8, 4, 8, 4, 8, 4, 2, 2, 4, 2, 4, 2, 4, 4, 2, 4, 4, 8, 8, 4, 4, 8, 4, 2, 2, 2, 2, 4, 2, 4, 8, 2, 8, 8, 4, 2

Offset

1,2

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Formula

a(n) = A001223(A061771(n)). - Amiram Eldar, Jun 06 2024

Mathematica

Do[s=Log[2, Prime[n+1]-Prime[n]]; If[IntegerQ[s], Print[Prime[n+1]]], {n, 1, 1000}]

Prog

(PARI) lista(pmax) = {my(p1 = 2, gap); forprime(p2 = 3, pmax, gap = p2 - p1; if(gap >> valuation(gap, 2) == 1, print1(gap, ", ")); p1 = p2); } \\ Amiram Eldar, Jun 06 2024

Crossrefs

Cf. A001223, A061771.

Sequence in context: A045841 A040003 A106469 * A327730 A365348 A372330

Adjacent sequences: A082505 A082506 A082507 * A082509 A082510 A082511

Keyword

nonn

Author

Labos Elemer, Apr 28 2003

Status

approved