A079033 - OEIS

%I #13 Jun 03 2016 02:43:53

%S 4,6,6,12,6,6,18,12,6,18,6,24,12,18,6,18,42,6,12,30,12,24,30,12,24,6,

%T 30,12,12,6,18,42,48,30,30,24,12,30,18,18,24,18,36,24,18,24,24,42,18,

%U 30,42,12,18,12,36,6,60,18,42,36,30,12,6,102,24,6,42,12,6,54,6,48,12,18,30,42

%N First differences of A023203.

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

%p N:= 10^4: # to use primes <= N

%p Primes:= select(isprime, {2,seq(i,i=3..N,2)}):

%p A023203:= sort(convert(Primes intersect map(`+`,Primes,10),list)):

%p A023203[2..-1] - A023203[1..-2]; # _Robert Israel_, Jun 02 2016

%t Differences[Select[Prime[Range[500]],PrimeQ[#+10]&]] (* _Harvey P. Dale_, May 02 2011 *)

%Y Cf. A053323.

%K nonn,easy

%O 1,1

%A _N. J. A. Sloane_, Jul 31 2003

%E More terms from _Labos Elemer_, Aug 04 2003