|
| |
| |
|
|
|
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, 1, 2, 3, 4, 5, 6, 10, 11, 12, 13, 18, 19, 20, 26, 27, 34, 67, 68, 69, 75, 76, 83, 124, 125, 132, 181, 467, 468, 475, 524, 867, 3268, 1, 2, 3, 4, 5, 6, 7, 11, 12, 13, 14, 15
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,3
|
|
|
EXAMPLE
| 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;
|
|
|
MAPLE
| 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;
|
|
|
CROSSREFS
| Sequence in context: A001037 A122086 A082594 * A077013 A086880 A120405
Adjacent sequences: A051847 A051848 A051849 * A051851 A051852 A051853
|
|
|
KEYWORD
| easy,nonn,tabf
|
|
|
AUTHOR
| Antti Karttunen Dec 13 1999
|
| |
|
|
