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.

A211029 Triangle read by rows in which row n lists the binary words of length n over the alphabet {1,2} with no initial repeats.

This page as a plain text file.
%I A211029 #27 Aug 22 2015 19:48:53
%S A211029 1,2,12,21,121,122,211,212,1211,1221,1222,2111,2112,2122,12111,12112,
%T A211029 12211,12212,12221,12222,21111,21112,21121,21122,21221,21222,121111,
%U A211029 121112,121122,122111,122112,122121,122211,122212,122221,122222,211111,211112
%N A211029 Triangle read by rows in which row n lists the binary words of length n over the alphabet {1,2} with no initial repeats.
%C A211029 As usual in the OEIS, binary alphabets are encoded with {1,2} over the alphabet {0,1} the entries contain nonzero "numbers" beginning with 0.
%H A211029 Alois P. Heinz, <a href="/A211029/b211029.txt">Rows n = 1..14, flattened</a>
%H A211029 <a href="/index/Cu#curling_numbers">Index entries for sequences related to curling numbers</a>
%e A211029 The fourth row of triangle of binary sequences is
%e A211029 0100, 0110, 0111, 1000, 1001, 1011 (see section example of A122536) therefore the fourth row of this triangle is
%e A211029 1211, 1221, 1222, 2111, 2112, 2122.
%e A211029 The first six rows of triangle are:
%e A211029 1, 2;
%e A211029 12, 21;
%e A211029 121, 122, 211, 212;
%e A211029 1211, 1221, 1222, 2111, 2112, 2122;
%e A211029 12111, 12112, 12211, 12212, 12221, 12222, 21111, 21112, 21121, 21122, 21221, 21222;
%e A211029 121111, 121112, 121122, 122111, 122112, 122121, 122211, 122212, 122221, 122222, 211111, 211112, 211121, 211122, 211212, 211221, 211222, 212211, 212221, 212222;
%p A211029 s:= proc(n) s(n):= `if`(n=0, [[]], map(x->
%p A211029       [[x[], 1], [x[], 2]][], s(n-1))) end:
%p A211029 T:= proc(n) map(x-> parse(cat(x[])), select(proc(l) local i;
%p A211029       for i to iquo(nops(l), 2) do if l[1..i]=l[i+1..2*i]
%p A211029       then return false fi od; true end, s(n)))[] end:
%p A211029 seq(T(n), n=1..7);  # _Alois P. Heinz_, Dec 02 2012
%Y A211029 Row n has length A122536(n).
%Y A211029 Cf. A093371, A211027, A213969, A216955.
%K A211029 nonn,tabf
%O A211029 1,2
%A A211029 _Omar E. Pol_, Nov 29 2012
%E A211029 More terms and name improved by _R. J. Mathar_, Nov 30 2012