OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
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)):
MATHEMATICA
Differences[Select[Prime[Range[500]], PrimeQ[#+10]&]] (* Harvey P. Dale, May 02 2011 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
N. J. A. Sloane, Jul 31 2003
EXTENSIONS
More terms from Labos Elemer, Aug 04 2003
STATUS
approved