This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A206446 #5 Mar 30 2012 18:58:12 %S A206446 2,6,7,9,10,16,18,21,22,23,26,28,29,30,32,33,34,42,45,49,50,52,56,58, %T A206446 60,61,64,65,66,67,71,74,75,77,79,81,82,83,84,87,88,90,91,92,93,95,96, %U A206446 97,98,108,112,117,118,121,126,128,131,132,136,137,138,140,145 %N A206446 Positions of 1 in A076478; complement of A206445. %e A206446 The positions of 1 in 0,1,0,0,0,1,1,0,1,1,0,0,0,0,0,1,... %e A206446 are 2,6,7,9,10,16,... %t A206446 d[n_] := Rest@IntegerDigits[n + 1, 2] + 1; %t A206446 t = -1 + Flatten[Array[d, 100]] %t A206446 Flatten[Position[t, 0]] (* A206445 *) %t A206446 Flatten[Position[t, 1]] (* A206446 *) %Y A206446 Cf. A076478, A206445. %K A206446 nonn %O A206446 1,1 %A A206446 _Clark Kimberling_, Feb 08 2012