%I A141687
%S A141687 1,0,1,1,0,1,1,0,1,1,0,1,0,0,1,0,1,0,0,1,1,1,0,1,1,0,0,1,1,0,1,1,0,0,1,
%T A141687 1,0,1,0,0,1,1,0,0,1,1,0,1,1,0,0,1,1,0,1,0,1,0,0,1,1,0,0,1,0
%N A141687 Triangle read by rows: t(n,m) = 1 - Mod[(Prime[n] - Prime[m])/2, 2].
%C A141687 Row sums are: {1, 1, 2, 3, 2, 3, 4, 5, 4, 6, 5, ...}.
%e A141687 {1},
%e A141687 {0, 1},
%e A141687 {1, 0, 1},
%e A141687 {1, 0, 1, 1},
%e A141687 {0, 1, 0, 0, 1},
%e A141687 {0, 1, 0, 0, 1, 1},
%e A141687 {1, 0, 1, 1, 0, 0, 1},
%e A141687 {1, 0, 1, 1, 0, 0, 1, 1},
%e A141687 {0, 1, 0, 0, 1, 1, 0, 0, 1},
%e A141687 {1, 0, 1, 1, 0, 0, 1, 1, 0, 1},
%e A141687 {0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1}
%t A141687 Table[Table[1 - Mod[(Prime[n] - Prime[m])/2, 2], {m, 2, n}], {n, 2, 12}]; 
               Flatten[%]
%Y A141687 Sequence in context: A005614 A071036 A166946 this_sequence A057078 A127245 
               A088150
%Y A141687 Adjacent sequences: A141684 A141685 A141686 this_sequence A141688 A141689 
               A141690
%K A141687 nonn,tabl
%O A141687 1,1
%A A141687 Roger L. Bagula, Gary W. Adamson and Mats Granvik (rlbagulatftn(AT)yahoo.com), 
               Sep 09 2008
%E A141687 Edited by N. J. A. Sloane (njas(AT)research.att.com), Sep 13 2008