cp's OEIS Frontend

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.

A211027 Triangle of binary numbers >= 1 with no initial repeats.

This page as a plain text file.
%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