%I #5 Jul 16 2015 21:46:59
%S 2,1,1,0,-1,1,-1,0,1,0,-1,0,-1,1,-1,0,1,-1,0,0,-1,0,-1,-1,0,1,1,0,-1,
%T -1,-1,-1,-1,0,0,-1,1,-1,-1,-1,1,-1,0,-1,0,0,-1,0,-1,1,-1,-1,-1,1,1,
%U -1,-1,-1,-1,0,-1,-1,-1,-1,0,1,0,-1,1,-1,-1,-1,0,-1,0,-1,0,-1,1,-1,0,1,-1,-1,-1,0,-1,-1,-1,-1,-1,0,1,0,-1,-1,-1,-1,-1,0
%N Odd nonprime gaps adjusted to be {2,1,0,-1}: a(n)=A067970(n)/2-2.
%F a(n)=A067970(n)/2-2.
%t b = Flatten[Table[If[PrimeQ[2*n + 1], {}, 2*n + 1], {n, 0, 200}]]; c = Table[(b[[n + 1]] - b[[n]])/2 - 2, {n, 1, Length[b] - 1}]
%K uned,sign
%O 1,1
%A _Roger L. Bagula_ and _Gary W. Adamson_, Sep 30 2008