login
Odd nonprime gaps adjusted to be {2,1,0,-1}: a(n)=A067970(n)/2-2.
0

%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