1,1

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

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

Cf. A001223, A082508, A082509.

Sequence in context: A020793 A021019 A177057 * A113427 A082509 A226280

Adjacent sequences: A082507 A082508 A082509 * A082511 A082512 A082513

nonn

Labos Elemer, Apr 28 2003

approved