OFFSET
0,1
LINKS
T. D. Noe, Table of n, a(n) for n = 0..1000
EXAMPLE
a(1)=10 because the two Goldbach partitions of 10 are {3,7} & {5,5} and (5-3)/2=1.
MATHEMATICA
f[n_] := Block[{p = 2, q = n/2}, While[ !PrimeQ[p] || !PrimeQ[n - p], p++ ]; While[ !PrimeQ[q] || !PrimeQ[n - q], q-- ]; q - p]; t = Table[0, {100}]; Do[a = f[2n]; If[a < 100 && t[[a/2 + 1]] == 0, t[[a/2 + 1]] = 2n; Print[{2a, 2n}]], {n, 2, 10^4}]; Take[t, 63]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Sep 05 2005
STATUS
approved