login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A228349 Triangle read by rows: T(j,k) is the k-th part in nondecreasing order of the j-th region of the set of compositions (ordered partitions) of n in colexicographic order, if 1<=j<=2^(n-1) and 1<=k<=A006519(j). 4
1, 1, 2, 1, 1, 1, 2, 3, 1, 1, 2, 1, 1, 1, 1, 1, 2, 2, 3, 4, 1, 1, 2, 1, 1, 1, 2, 3, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 4, 5, 1, 1, 2, 1, 1, 1, 2, 3, 1, 1, 2, 1, 1, 1, 1, 1, 2, 2, 3, 4, 1, 1, 2, 1, 1, 1, 2, 3, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,3
COMMENTS
Triangle read by rows in which row n lists the A006519(n) elements of the row A001511(n) of triangle A090996, n >= 1.
The equivalent sequence for partitions is A220482.
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..13312 (rows 1 <= n <= 2^11 = 2048).
EXAMPLE
----------------------------------------------------------
. Diagram Triangle
Compositions of of compositions (rows)
of 5 regions and regions (columns)
----------------------------------------------------------
. _ _ _ _ _
5 |_ | 5
1+4 |_|_ | 1 4
2+3 |_ | | 2 3
1+1+3 |_|_|_ | 1 1 3
3+2 |_ | | 3 2
1+2+2 |_|_ | | 1 2 2
2+1+2 |_ | | | 2 1 2
1+1+1+2 |_|_|_|_ | 1 1 1 2
4+1 |_ | | 4 1
1+3+1 |_|_ | | 1 3 1
2+2+1 |_ | | | 2 2 1
1+1+2+1 |_|_|_ | | 1 1 2 1
3+1+1 |_ | | | 3 1 1
1+2+1+1 |_|_ | | | 1 2 1 1
2+1+1+1 |_ | | | | 2 1 1 1
1+1+1+1+1 |_|_|_|_|_| 1 1 1 1 1
.
Written as an irregular triangle in which row n lists the parts of the n-th region the sequence begins:
1;
1,2;
1;
1,1,2,3;
1;
1,2;
1;
1,1,1,1,2,2,3,4;
1;
1,2;
1;
1,1,2,3;
1;
1,2;
1;
1,1,1,1,1,1,1,1,2,2,2,2,3,3,4,5;
...
Alternative interpretation of this sequence:
Triangle read by rows in which row r lists the regions of the last section of the set of compositions of r:
[1];
[1,2];
[1],[1,1,2,3];
[1],[1,2],[1],[1,1,1,1,2,2,3,4];
[1],[1,2],[1],[1,1,2,3],[1],[1,2],[1],[1,1,1,1,1,1,1,1,2,2,2,2,3,3,4,5];
MATHEMATICA
Table[Map[Length@ TakeWhile[IntegerDigits[#, 2], # == 1 &] &, Range[2^(# - 1), 2^# - 1]] &@ IntegerExponent[2 n, 2], {n, 32}] // Flatten (* Michael De Vlieger, May 23 2017 *)
CROSSREFS
Main triangle: Right border gives A001511. Row j has length A006519(j). Row sums give A038712.
Sequence in context: A184957 A340811 A340812 * A285718 A205792 A370784
KEYWORD
nonn,tabf
AUTHOR
Omar E. Pol, Aug 26 2013
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 19 21:09 EDT 2024. Contains 371798 sequences. (Running on oeis4.)