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!)
A308916 Irregular triangular array: row n shows positions of strict partitions of n among all partitions of n, using Mathematica ordering. 1
1, 1, 1, 2, 1, 2, 1, 2, 3, 1, 2, 3, 6, 1, 2, 3, 5, 6, 1, 2, 3, 5, 6, 9, 1, 2, 3, 5, 6, 8, 9, 14, 1, 2, 3, 5, 6, 8, 9, 14, 15, 23, 1, 2, 3, 5, 6, 8, 9, 13, 14, 15, 21, 24, 1, 2, 3, 5, 6, 8, 9, 13, 14, 15, 21, 22, 25, 33, 34, 1, 2, 3, 5, 6, 8, 9, 13, 14, 15 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,4
LINKS
EXAMPLE
1
1
1 2
1 2
1 2 3
1 2 3 6
1 2 3 5 6
1 2 3 5 6 9
1 2 3 5 6 8 9 14
1 2 3 5 6 8 9 14 15 23
Strict partitions of 6: {6}, {5, 1}, {4, 2}, {3, 2, 1}, which occupy positions 1,2,3,6 in the ordering of all partitions of 6: {6}, {5, 1}, {4, 2}, {4, 1, 1}, {3, 3}, {3, 2, 1}, {3, 1, 1, 1}, {2, 2, 2}, {2, 2, 1, 1}, {2, 1, 1, 1, 1}, {1, 1, 1, 1, 1, 1}
MATHEMATICA
p[n_] := IntegerPartitions[n];
d[n_] := Select[p[n], Max[Length /@ Split@#] == 1 &];
t = Table[Flatten[Table[Position[p[n], d[n][[k]]], {k, 1, Length[d[n]]}]], {n, 1, 15}]
Flatten[t] (* A308916, sequence *)
CROSSREFS
Sequence in context: A030718 A227779 A194066 * A353171 A182628 A361477
KEYWORD
nonn,tabf,easy
AUTHOR
Clark Kimberling, Jun 30 2019
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 March 29 11:45 EDT 2024. Contains 371278 sequences. (Running on oeis4.)