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 A206445 #5 Mar 30 2012 18:58:12 %S A206445 1,3,4,5,8,11,12,13,14,15,17,19,20,24,25,27,31,35,36,37,38,39,40,41, %T A206445 43,44,46,47,48,51,53,54,55,57,59,62,63,68,69,70,72,73,76,78,80,85,86, %U A206445 89,94,99,100,101,102,103,104,105,106,107,109,110,111,113,114 %N A206445 Positions of 0 in A076478; complement of A206446. %e A206445 The positions of 0 in 0,1,0,0,0,1,1,0,1,1,0,0,0,0,0,1,... %e A206445 are 1,3,4,5,9,11,12,13,14,15,... %t A206445 d[n_] := Rest@IntegerDigits[n + 1, 2] + 1; %t A206445 t = -1 + Flatten[Array[d, 100]] %t A206445 Flatten[Position[t, 0]] (* A206445 *) %t A206445 Flatten[Position[t, 1]] (* A206446 *) %Y A206445 Cf. A076478, A206446. %K A206445 nonn %O A206445 1,2 %A A206445 _Clark Kimberling_, Feb 08 2012