A082510 Differences of consecutive primes being divisible by 6 in order of their appearance in A001223: terms not divisible by 6 are omitted from A001223.

6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 12, 12, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 12, 6, 12, 18, 6, 6, 6, 6, 6, 6, 6, 6, 12, 6, 6, 12, 6, 6, 6, 6, 12, 6, 6, 6, 6, 6, 12, 6, 6, 6, 18, 6, 6, 6, 6, 6, 6, 12, 6, 6, 6, 12, 18, 6, 6, 12, 6, 6, 6, 18, 6, 6, 12, 6, 12, 12, 12, 6, 6, 6, 6, 6, 6, 24, 12, 6, 6, 6, 18

Offset: 1

Author

Labos Elemer, Apr 28 2003

Keywords

• nonn

Crossrefs

Cf. A001223, A082508, A082509.

Programs

Mathematica

Do[s=Mod[d=Prime[n+1]-Prime[n], 6]; If[Equal[s, 0], Print[d]], {n, 1, 1000}]
Select[Last[#]-First[#]&/@Partition[Prime[Range[500]],2,1], Divisible[ #,6]&] (* Harvey P. Dale, Mar 18 2012 *)
Select[Differences[Prime[Range[500]]],Divisible[#,6]&] (* Harvey P. Dale, May 13 2020 *)