|
%I #16 May 17 2018 10:24:30
%S 1,1,1,2,1,2,2,1,2,2,3,3,1,2,2,3,3,4,4,4,5,5,5,1,2,2,3,3,4,4,4,5,5,5,
%T 6,6,6,6,7,7,7,7,8,8,8,8,9,9,9,9,9,10,10,10,10,10,11,11,11,11,11
%N Triangular array starting with {1,1}; then i-th term in a row gives number of i's in next row.
%C The row {2} could be safely prepended to this triangle. - _Gus Wiseman_, May 13 2018
%H Alois P. Heinz, <a href="/A014643/b014643.txt">Rows n = 1..8, flattened</a>
%e Triangle begins:
%e {1,1},
%e {1,2},
%e {1,2,2},
%e {1,2,2,3,3},
%e ...
%p T:= proc(n) option remember; `if`(n=0, 2, (l->
%p seq(i$l[i], i=1..nops(l)))([T(n-1)]))
%p end:
%p seq(T(n), n=1..7); # _Alois P. Heinz_, May 17 2018
%t NestList[Join@@Table[Table[i,{#[[i]]}],{i,Length[#]}]&,{2},8] (* _Gus Wiseman_, May 13 2018 *)
%Y Rows converge to A001462.
%Y Cf. A011784, A012257, A014643, A014644, A112798, A181819, A182850-A182858, A296150, A304455.
%K tabf,nonn
%O 1,4
%A _N. J. A. Sloane_
%E More terms from _Patrick De Geest_
|
