|
%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
|
