OFFSET
0,1
COMMENTS
For even n, a(n) - a(n-1) increases as n increases.
LINKS
T. D. Noe, Table of n, a(n) for n = 0..100
MATHEMATICA
p = Prime[Range[10000]]; tp = Select[p, PrimeQ[# + 2] || PrimeQ[# - 2] &]; {tn, t} = Transpose[Sort[Tally[Select[Flatten[Table[If[a >= b, a + b, 0], {a, tp}, {b, tp}]], # < tp[[-1]] &]]]]; Join[{Length[Complement[Range[2, tn[[-1]], 2], tn]]}, Table[Count[t, n], {n, 8}]] (* T. D. Noe, May 30 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Michael Jones, May 29 2012
EXTENSIONS
Extended and corrected by T. D. Noe, May 30 2012
STATUS
approved