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!)
A336136 Number of ways to split an integer partition of n into contiguous subsequences with weakly increasing sums. 5
1, 1, 3, 5, 11, 15, 31, 40, 73, 98, 158, 204, 340, 420, 629, 819, 1202, 1494, 2174, 2665, 3759, 4688, 6349, 7806, 10788, 13035, 17244, 21128, 27750, 33499, 43941, 52627, 67957, 81773, 103658, 124047, 158628, 187788, 235162, 280188, 349612, 413120, 513952, 604568 (list; graph; refs; listen; history; text; internal format)
OFFSET
0,3
LINKS
EXAMPLE
The a(1) = 1 through a(5) = 15 splittings:
(1) (2) (3) (4) (5)
(1,1) (2,1) (2,2) (3,2)
(1),(1) (1,1,1) (3,1) (4,1)
(1),(1,1) (2,1,1) (2,2,1)
(1),(1),(1) (2),(2) (3,1,1)
(1,1,1,1) (2,1,1,1)
(2),(1,1) (2),(2,1)
(1),(1,1,1) (1,1,1,1,1)
(1,1),(1,1) (2),(1,1,1)
(1),(1),(1,1) (1),(1,1,1,1)
(1),(1),(1),(1) (1,1),(1,1,1)
(1),(1),(1,1,1)
(1),(1,1),(1,1)
(1),(1),(1),(1,1)
(1),(1),(1),(1),(1)
MATHEMATICA
splits[dom_]:=Append[Join@@Table[Prepend[#, Take[dom, i]]&/@splits[Drop[dom, i]], {i, Length[dom]-1}], {dom}];
Table[Sum[Length[Select[splits[ctn], LessEqual@@Total/@#&]], {ctn, IntegerPartitions[n]}], {n, 0, 10}]
PROG
(PARI) a(n)={my(recurse(r, m, s, t, f)=if(m==0, r==0, if(f && r >= t && t >= s, self()(r, m, t, 0, 0)) + self()(r, m-1, s, t, 0) + self()(r-m, min(m, r-m), s, t+m, 1))); recurse(n, n, 0, 0)} \\ Andrew Howroyd, Jan 18 2024
CROSSREFS
The version with weakly decreasing sums is A316245.
The version with equal sums is A317715.
The version with strictly increasing sums is A336134.
The version with strictly decreasing sums is A336135.
The version with different sums is A336131.
Starting with a composition gives A075900.
Partitions of partitions are A001970.
Partitions of compositions are A075900.
Compositions of compositions are A133494.
Compositions of partitions are A323583.
Sequence in context: A200176 A092929 A138879 * A318915 A322439 A018313
KEYWORD
nonn
AUTHOR
Gus Wiseman, Jul 11 2020
EXTENSIONS
a(21) onwards from Andrew Howroyd, Jan 18 2024
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 04:59 EDT 2024. Contains 371264 sequences. (Running on oeis4.)