|
%I
%S 1,1,2,1,2,3,7,1,2,3,4,8,9,14,39,1,2,3,4,5,9,10,11,16,17,23,52,53,59,
%T 95,311,1,2,3,4,5,6,10,11,12,13,18,19,20,26,27,34,67,68,69,75,76,83,
%U 124,125,132,181,467,468,475,524,867,3268,1,2,3,4,5,6,7,11,12,13,14,15
%N A051849(n)/[log2(n)+1].
%e n-th row has length 2^(n-1) (A000079[n-1]) 1; 1,2; 1,2,3,7; 1,2,3,4,8,9,14,39; 1,2,3,4,5,9,10,11,16,17,23,52,53,59,95,311;
%p with(combinat); rows_upto_u := proc(u) local a,n; a := []; for n from 1 to u do a := [op(a),op(map(divby, sort(map(list_in_base_b,map(op,map(permute,partition(n))),(n+1))), n))]; od; RETURN(a); end; divby := (n,d) -> n/d;
%K easy,nonn,tabf
%O 1,3
%A Antti Karttunen Dec 13 1999
|
