A079033 First differences of A023203.

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, 30, 12, 12, 6, 18, 42, 48, 30, 30, 24, 12, 30, 18, 18, 24, 18, 36, 24, 18, 24, 24, 42, 18, 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

Offset: 1

Author

N. J. A. Sloane, Jul 31 2003

Keywords

• nonn
• easy

Links

• Robert Israel, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A053323.

Programs

Maple

N:= 10^4: # to use primes <= N
Primes:= select(isprime, {2,seq(i,i=3..N,2)}):
A023203:= sort(convert(Primes intersect map(`+`,Primes,10),list)):
A023203[2..-1] - A023203[1..-2]; # Robert Israel, Jun 02 2016

Mathematica

Differences[Select[Prime[Range[500]],PrimeQ[#+10]&]] (* Harvey P. Dale, May 02 2011 *)

Extensions

More terms from Labos Elemer, Aug 04 2003