OFFSET
1,5
COMMENTS
Or, a(n) = m such that primorial(n+1)/2+2*prime(n+m+1) is prime.
For positions of 1's in this sequence see A139461
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; definition corrected May 09 2008
STATUS
approved