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

Links

Table of n, a(n) for n=1..95.

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

Crossrefs

Cf. A001223, A082508, A082509.

Sequence in context: A021019 A177057 A362115 * A343195 A173068 A113427

Adjacent sequences: A082507 A082508 A082509 * A082511 A082512 A082513

Keyword

nonn

Author

Labos Elemer, Apr 28 2003

Status

approved