OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
FORMULA
MAPLE
N:= 10000: # to get all terms <= N
Primes:= select(isprime, [seq(i, i=3..N+1, 2)]):
A001043:= convert(Primes[1..-2] + Primes[2..-1], set):
Primes:= convert(Primes, set):
A:= map(`+`, Primes intersect map(`-`, Primes, 2), 1) intersect A001043:
sort(convert(A, list)); # Robert Israel, Jan 18 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Nov 07 2009
EXTENSIONS
Corrected (60 inserted, 178 replaced by 198, 462 inserted....) by R. J. Mathar, May 30 2010
STATUS
approved