OFFSET
1,1
COMMENTS
Conjectured to be finite, may be complete.
a(8), if it exists, is greater than 20100000. - R. J. Mathar, Jan 26 2008
REFERENCES
R. K. Guy, ed., Unsolved Problems, Western Number Theory Meeting, Las Vegas, 1988.
MAPLE
with(numtheory): Sset := {}: for i to 15000 do Sset := `union`(Sset, {ithprime(i) + ithprime(i + 1)}) od: Sset := convert(Sset, list): for n from 1 to nops(Sset) do count := 0: s := Sset[n]: for i from 1 to n do if member(s - Sset[i], Sset) and s-Sset[i] >= s/2 then count := count + 1 fi; od: if count = 0 then printf(`%d, `, Sset[n]) fi; od: # James A. Sellers, Jan 28 2008
CROSSREFS
KEYWORD
nonn,more
AUTHOR
N. J. A. Sloane, Jan 25 2008
EXTENSIONS
946 found by James A. Sellers, Jan 25 2008
STATUS
approved