OFFSET
1,2
LINKS
EXAMPLE
Irregular triangle begins:
1;
2;
4, 5;
8, 9, 11;
16, 17, 18, 19, 22, 23;
32, 33, 34, 35, 37, 38, 39, 44, 46, 47;
MAPLE
s:= proc(n) s(n):= `if`(n=1, [[1]], map(x->
[[x[], 0], [x[], 1]][], s(n-1))) end:
T:= proc(n) map (x-> add(x[i]*2^(nops(x)-i), i=1..nops(x)), select
(proc(l) local i; for i to iquo(nops(l), 2) do if l[1..i]=
l[i+1..2*i] then return false fi od; true end, s(n)))[] end:
seq (T(n), n=1..8); # Alois P. Heinz, Dec 03 2012
CROSSREFS
KEYWORD
nonn,tabf,base
AUTHOR
Omar E. Pol, Nov 30 2012
STATUS
approved