OFFSET
2,4
COMMENTS
The gap is always even.
LINKS
T. D. Noe, Table of n, a(n) for n = 2..1000
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]; Table[ f[n], {n, 4, 150, 2}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Sep 05 2005
STATUS
approved