OFFSET
3,2
FORMULA
a(n) = A078611(n)/2.
MATHEMATICA
f[n_] := Block[{k = 1, p = Prime@n}, While[ !PrimeQ[p - 2k] || !PrimeQ[p + 2k], k++ ]; k]; Table[f[n], {n, 3, 90}] (* Robert G. Wilson v, Mar 14 2006 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Lekraj Beedassy, Mar 04 2006
EXTENSIONS
Corrected by N. J. A. Sloane, Mar 05 2006
More terms from Robert G. Wilson v, Mar 14 2006
STATUS
approved