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 A211027 #34 Feb 27 2021 11:18:19 %S A211027 1,10,100,101,1000,1001,1011,10000,10001,10010,10011,10110,10111, %T A211027 100000,100001,100010,100011,100101,100110,100111,101100,101110, %U A211027 101111,1000000,1000001,1000010,1000011,1000100,1000101,1000110,1000111,1001010,1001011,1001100,1001101,1001110,1001111,1011000,1011001,1011100,1011101,1011110,1011111 %N A211027 Triangle of binary numbers >= 1 with no initial repeats. %C A211027 Triangle read by rows in which row n lists the binary numbers with n digits and with no initial repeats. %C A211027 Also triangle read by rows in which row n lists the binary words of length n with no initial repeats and with initial digit 1. See also A211029. %H A211027 Alois P. Heinz, <a href="/A211027/b211027.txt">Rows n = 1..15, flattened</a> %H A211027 <a href="/index/Cu#curling_numbers">Index entries for sequences related to curling numbers</a> %e A211027 Triangle begins: %e A211027 1; %e A211027 10; %e A211027 100, 101; %e A211027 1000, 1001, 1011; %e A211027 10000, 10001, 10010, 10011, 10110, 10111; %e A211027 100000, 100001, 100010, 100011, 100101, 100110, 100111, 101100, 101110, 101111; %e A211027 1000000, 1000001, 1000010, 1000011, 1000100, 1000101, 1000110, 1000111, 1001010, 1001011, 1001100, 1001101, 1001110, 1001111, 1011000, 1011001, 1011100, 1011101, 1011110, 1011111; %p A211027 s:= proc(n) s(n):= `if`(n=1, [[1]], map(x-> %p A211027 [[x[], 0], [x[], 1]][], s(n-1))) end: %p A211027 T:= proc(n) map(x-> parse(cat(x[])), select(proc(l) local i; %p A211027 for i to iquo(nops(l), 2) do if l[1..i]=l[i+1..2*i] %p A211027 then return false fi od; true end, s(n)))[] end: %p A211027 seq(T(n), n=1..7); # _Alois P. Heinz_, Dec 02 2012 %t A211027 T[n_] := If[n == 1, {1}, FromDigits /@ Select[Range[2^(n-1), 2^n-2] // IntegerDigits[#, 2]&, FindTransientRepeat[Reverse[#], 2][[2]] == {}&]]; %t A211027 Array[T, 7] // Flatten (* _Jean-François Alcover_, Feb 27 2021 *) %Y A211027 Column 1 is A011557. Row n has length A093371(n). %Y A211027 Cf. A122536, A211029, A211968, A211969, A216955. %K A211027 nonn,tabf %O A211027 1,2 %A A211027 _Omar E. Pol_, Nov 30 2012