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,1

Links

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

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 *)

Prog

(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

Crossrefs

Cf. A001223, A082508.

Sequence in context: A343195 A173068 A113427 * A226280 A375658 A331944

Adjacent sequences: A082506 A082507 A082508 * A082510 A082511 A082512

Keyword

nonn,changed

Author

Labos Elemer, Apr 28 2003

Status

approved