OFFSET
1,3
FORMULA
A115564(n)/3.
MATHEMATICA
f[n_] := Block[{k = 1}, While[ ! PrimeQ[10^n - 3k] || ! PrimeQ[10^n + 3k], k++ ]; k]; Array[f, 55]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Apr 12 2006
STATUS
approved