|
%I #10 May 13 2020 17:24:18
%S 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,
%T 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,
%U 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
%N Differences of consecutive primes being divisible by 6 in order of their appearance in A001223: terms not divisible by 6 are omitted from A001223.
%t Do[s=Mod[d=Prime[n+1]-Prime[n], 6]; If[Equal[s, 0], Print[d]], {n, 1, 1000}]
%t Select[Last[#]-First[#]&/@Partition[Prime[Range[500]],2,1], Divisible[ #,6]&] (* _Harvey P. Dale_, Mar 18 2012 *)
%t Select[Differences[Prime[Range[500]]],Divisible[#,6]&] (* _Harvey P. Dale_, May 13 2020 *)
%Y Cf. A001223, A082508, A082509.
%K nonn
%O 1,1
%A _Labos Elemer_, Apr 28 2003
|
