OFFSET
1,2
COMMENTS
When 1 occured in this sequence see A139463
MATHEMATICA
k = 1; a = {}; Do[k = k*Prime[n]; m = 1; While[ ! PrimeQ[k - 2*Prime[n + m]], m++ ]; Print[m]; AppendTo[a, m], {n, 2, 200}]; a (*Artur Jasinski*)
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Apr 22 2008
STATUS
approved