A088684 - OEIS

%I #14 Dec 15 2019 21:56:24

%S 6,6,8,6,8,6,10,6,6,10,12,10,8,6,24,6,12,12,10,24,6,16,10,12,14,18,12,

%T 10,6,20,12,14,16,8,16,8,6,12,12,16,18,18,10,10,18,14,6,24,6,6,24,18,

%U 12,10,14,10,12,12,8,6,12,12,12,16,20,12,18,20,8,6,14,40,26,18,10,6,22,6

%N Prime(3n+3)-prime(3n+1).

%C Minimal difference is 6 (for 3-tuplet). Repeating 6 means successive 3-tuplets.

%H Robert Israel, <a href="/A088684/b088684.txt">Table of n, a(n) for n = 1..10000</a>

%F Partition primes in triples starting with 7: {7, 11, 13}, {17, 19, 23}, {29, 31, 37}, {41, 43, 47}, {53, 59, 61}, {67, 71, 73}, {79, 83, 89}, {97, 101, 103}, {107, 109, 113}. Sequence gives differences between lesser and larger primes in triples.

%p Primes:= select(isprime, [2,seq(i,i=3..10000)]):

%p seq(Primes[3*n+3]-Primes[3*n+1],n=1..(nops(Primes)-3)/3); # _Robert Israel_, Dec 15 2019

%t Last[#]-First[#]&/@Partition[Prime[Range[4,250]],3] (* _Harvey P. Dale_, Sep 06 2011 *)

%Y Cf. A088680, A078584, A088682, A088683.

%K base,easy,nonn

%O 1,1

%A _Zak Seidov_, Oct 05 2003