A082509 Differences between consecutive primes that are not powers of 2 in order of their appearance. Differences which are powers of 2 are omitted from A001223.

6, 6, 6, 6, 6, 6, 6, 14, 6, 10, 6, 6, 6, 6, 10, 12, 12, 6, 10, 6, 6, 6, 6, 10, 14, 14, 6, 10, 6, 6, 6, 6, 10, 10, 6, 6, 12, 6, 12, 18, 6, 10, 6, 6, 6, 10, 6, 6, 6, 6, 12, 10, 6, 6, 12, 6, 10, 10, 6, 6, 6, 14, 10, 12, 10, 10, 14, 14, 20, 10, 6, 6, 14, 6, 6, 6, 12, 6, 10, 6, 10, 10, 6, 18, 6, 6, 6

Offset: 1

Author

Labos Elemer, Apr 28 2003

Keywords

• nonn

Links

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

Crossrefs

Cf. A001223, A082508.

Programs

Mathematica

Do[s=Log[2, Prime[n+1]-Prime[n]]; If[ !IntegerQ[s], Print[Prime[n+1]]], {n, 1, 1000}]
Module[{nn=250,twos},twos=2^Range[0,Floor[Log[2,Prime[nn]]]];Select[ Differences[ Prime[Range[nn]]],!MemberQ[twos,#]&]] (* Harvey P. Dale, Apr 18 2012 *)

PARI

list(lim) = {my(p = 2, d); forprime(q = 3, lim, d = q - p; if(d >> valuation(d, 2) > 1, print1(d, ", ")); p = q);} \\ Amiram Eldar, Feb 16 2025