A211967 - OEIS

%I #26 Mar 28 2014 23:42:28

%S 1,2,4,5,8,9,11,16,17,18,19,22,23,32,33,34,35,37,38,39,44,46,47,64,65,

%T 66,67,68,69,70,71,74,75,76,77,78,79,88,89,92,93,94,95,128,129,130,

%U 131,132,133,134,135,137,138,139,140,141,142,143,148,149,150

%N Triangle of decimal equivalents of binary numbers with no initial repeats, A211027.

%H Alois P. Heinz, <a href="/A211967/b211967.txt">Rows n = 1..15, flattened</a>

%H <a href="/index/Cu#curling_numbers">Index entries for sequences related to curling numbers</a>

%e Irregular triangle begins:

%e 1;

%e 2;

%e 4,   5;

%e 8,   9, 11;

%e 16, 17, 18, 19, 22, 23;

%e 32, 33, 34, 35, 37, 38, 39, 44, 46, 47;

%p s:= proc(n) s(n):= `if`(n=1, [[1]], map(x->

%p       [[x[], 0], [x[], 1]][], s(n-1))) end:

%p T:= proc(n) map (x-> add(x[i]*2^(nops(x)-i), i=1..nops(x)), select

%p       (proc(l) local i; for i to iquo(nops(l), 2) do if l[1..i]=

%p       l[i+1..2*i] then return false fi od; true end, s(n)))[] end:

%p seq (T(n), n=1..8);  # _Alois P. Heinz_, Dec 03 2012

%Y Columns 1-2 give: A000079(n-1), A000051(n-1) for n>2. Row n has length A093371(n). Right border gives A083329(n-1).

%Y Cf. A122536, A211029, A211968, A211969, A216955.

%K nonn,tabf,base

%O 1,2

%A _Omar E. Pol_, Nov 30 2012