%I A051850
%S A051850 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 A051850 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 A051850 124,125,132,181,467,468,475,524,867,3268,1,2,3,4,5,6,7,11,12,13,14,15
%N A051850 A051849(n)/[log2(n)+1].
%e A051850 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 A051850 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;
%Y A051850 Sequence in context: A001037 A122086 A082594 this_sequence A077013 A086880 
               A120405
%Y A051850 Adjacent sequences: A051847 A051848 A051849 this_sequence A051851 A051852 
               A051853
%K A051850 easy,nonn,tabf
%O A051850 1,3
%A A051850 Antti Karttunen Dec 13 1999