OFFSET
1,1
COMMENTS
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
a(3) = 20 is a term because 20 = 7 + 13 and there is no other pair of distinct members of A006512 whose sum is 20.
MAPLE
N:= 1000: # for terms <= N
P:= select(t -> isprime(t) and isprime(t-2), [5, seq(i, i=7..N, 6)]):
R:= sort(select(`<=`, [seq(seq(P[i]+P[j], i=1..j-1), j=1..nops(P))], N)):
J:= select(proc(i) i=1 or (R[i-1] < R[i] and R[i] < R[i+1]) end proc, [$1..nops(R)-1]):
R[J];
CROSSREFS
KEYWORD
nonn,new
AUTHOR
Robert Israel, May 28 2026
STATUS
approved
