|
Search: id: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, 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; listen)
|
|
|
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
|
Adjacent sequences: A051847 A051848 A051849 this_sequence A051851 A051852 A051853
Sequence in context: A001037 A122086 A082594 this_sequence A077013 A086880 A120405
|
|
KEYWORD
|
easy,nonn,tabf
|
|
AUTHOR
|
Antti Karttunen Dec 13 1999
|
|
|
Search completed in 0.002 seconds
|
