This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A051850 A051849(n)/[log2(n)+1]. 2

%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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Puzzles | Hot | Classics
Recent Additions | More pages | Superseeker | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement .