cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-5 of 5 results.

A336128 Number of ways to split a strict composition of n into contiguous subsequences with different sums.

Original entry on oeis.org

1, 1, 1, 5, 5, 9, 29, 37, 57, 89, 265, 309, 521, 745, 1129, 3005, 3545, 5685, 8201, 12265, 16629, 41369, 48109, 77265, 107645, 160681, 214861, 316913, 644837, 798861, 1207445, 1694269, 2437689, 3326705, 4710397, 6270513, 12246521, 14853625, 22244569, 30308033, 43706705, 57926577, 82166105, 107873221, 148081785, 257989961, 320873065, 458994657, 628016225, 875485585, 1165065733
Offset: 0

Views

Author

Gus Wiseman, Jul 10 2020

Keywords

Comments

A composition of n is a finite sequence of positive integers summing to n.

Examples

			The a(0) = 1 through a(5) = 5 splits:
  ()  (1)  (2)  (3)     (4)     (5)
                (12)    (13)    (14)
                (21)    (31)    (23)
                (1)(2)  (1)(3)  (32)
                (2)(1)  (3)(1)  (41)
                                (1)(4)
                                (2)(3)
                                (3)(2)
                                (4)(1)
The a(6) = 29 splits:
  (6)    (1)(5)   (1)(2)(3)
  (15)   (2)(4)   (1)(3)(2)
  (24)   (4)(2)   (2)(1)(3)
  (42)   (5)(1)   (2)(3)(1)
  (51)   (1)(23)  (3)(1)(2)
  (123)  (1)(32)  (3)(2)(1)
  (132)  (13)(2)
  (213)  (2)(13)
  (231)  (2)(31)
  (312)  (23)(1)
  (321)  (31)(2)
         (32)(1)

Links

Crossrefs

The version with equal instead of different sums is A336130.
Starting with a non-strict composition gives A336127.
Starting with a partition gives A336131.
Starting with a strict partition gives A336132.
Partitions of partitions are A001970.
Partitions of compositions are A075900.
Compositions of compositions are A133494.
Set partitions with distinct block-sums are A275780.
Compositions of partitions are A323583.
Cf. A006951, A063834, A271619, A279375, A305551, A326519, A317508, A318684, A336133, A336134, A336135.

Programs

  • 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],UnsameQ@@Total/@#&]],{ctn,Join@@Permutations/@Select[IntegerPartitions[n],UnsameQ@@#&]}],{n,0,15}]

Extensions

a(31)-a(50) from Max Alekseyev, Feb 14 2024

A336135 Number of ways to split an integer partition of n into contiguous subsequences with strictly decreasing sums.

Original entry on oeis.org

1, 1, 2, 5, 8, 16, 29, 50, 79, 135, 213, 337, 522, 796, 1191, 1791, 2603, 3799, 5506, 7873, 11154, 15768, 21986, 30565, 42218, 57917, 78968, 107399, 144932, 194889, 261061, 347773, 461249, 610059, 802778, 1053173, 1377325, 1793985, 2329009, 3015922, 3891142
Offset: 0

Views

Author

Gus Wiseman, Jul 11 2020

Keywords

Examples

			The a(1) = 1 through a(5) = 16 splittings:
  (1)  (2)    (3)        (4)          (5)
       (1,1)  (2,1)      (2,2)        (3,2)
              (1,1,1)    (3,1)        (4,1)
              (2),(1)    (2,1,1)      (2,2,1)
              (1,1),(1)  (3),(1)      (3,1,1)
                         (1,1,1,1)    (3),(2)
                         (2,1),(1)    (4),(1)
                         (1,1,1),(1)  (2,1,1,1)
                                      (2,2),(1)
                                      (3),(1,1)
                                      (3,1),(1)
                                      (1,1,1,1,1)
                                      (2,1),(1,1)
                                      (2,1,1),(1)
                                      (1,1,1),(1,1)
                                      (1,1,1,1),(1)

Links

Crossrefs

The version with equal sums is A317715.
The version with strictly increasing sums is A336134.
The version with weakly increasing sums is A336136.
The version with weakly decreasing sums is A316245.
The version with different sums is A336131.
Starting with a composition gives A304961.
Starting with a strict partition gives A318684.
Partitions of partitions are A001970.
Partitions of compositions are A075900.
Compositions of compositions are A133494.
Compositions of partitions are A323583.
Cf. A006951, A063834, A279786, A305551, A323433, A336128, A336130, A336133.

Programs

  • 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],Greater@@Total/@#&]],{ctn,IntegerPartitions[n]}],{n,0,10}]
  • PARI
    a(n)={my(recurse(r,m,s,t,f)=if(m==0, r==0, if(f, self()(r,min(m,t-1),t-1,0,0)) + self()(r,m-1,s,t,0) + if(t+m<=s, self()(r-m,min(m,r-m),s,t+m,1)))); recurse(n,n,n,0)} \\ Andrew Howroyd, Jan 18 2024

Extensions

a(21) onwards from Andrew Howroyd, Jan 18 2024

A336134 Number of ways to split an integer partition of n into contiguous subsequences with strictly increasing sums.

Original entry on oeis.org

1, 1, 2, 4, 6, 11, 17, 27, 37, 62, 82, 125, 168, 246, 320, 462, 585, 839, 1078, 1466, 1830, 2528, 3136, 4188, 5210, 6907, 8498, 11177, 13570, 17668, 21614, 27580, 33339, 42817, 51469, 65083, 78457, 98409, 117602, 147106, 174663, 217400, 259318, 319076, 377707
Offset: 0

Views

Author

Gus Wiseman, Jul 11 2020

Keywords

Examples

			The a(1) = 1 through a(6) = 17 splits:
  (1)  (2)    (3)        (4)          (5)            (6)
       (1,1)  (2,1)      (2,2)        (3,2)          (3,3)
              (1,1,1)    (3,1)        (4,1)          (4,2)
              (1),(1,1)  (2,1,1)      (2,2,1)        (5,1)
                         (1,1,1,1)    (3,1,1)        (2,2,2)
                         (1),(1,1,1)  (2,1,1,1)      (3,2,1)
                                      (2),(2,1)      (4,1,1)
                                      (1,1,1,1,1)    (2,2,1,1)
                                      (2),(1,1,1)    (2),(2,2)
                                      (1),(1,1,1,1)  (3,1,1,1)
                                      (1,1),(1,1,1)  (2,1,1,1,1)
                                                     (2),(2,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)

Links

Crossrefs

The version with equal sums is A317715.
The version with strictly decreasing sums is A336135.
The version with weakly decreasing sums is A316245.
The version with different sums is A336131.
Starting with a composition gives A304961.
Starting with a strict partition gives A336133.
Partitions of partitions are A001970.
Partitions of compositions are A075900.
Compositions of compositions are A133494.
Compositions of partitions are A323583.
Cf. A006951, A063834, A279786, A305551, A318684, A323433, A336128, A336130.

Programs

  • 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],Less@@Total/@#&]],{ctn,IntegerPartitions[n]}],{n,0,10}]
  • 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+1,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,0)} \\ Andrew Howroyd, Jan 18 2024

Extensions

a(21) onwards from Andrew Howroyd, Jan 18 2024

A336343 Number of ways to choose a strict partition of each part of a strict composition of n.

Original entry on oeis.org

1, 1, 1, 4, 6, 11, 26, 39, 78, 142, 320, 488, 913, 1558, 2798, 5865, 9482, 16742, 28474, 50814, 82800, 172540, 266093, 472432, 790824, 1361460, 2251665, 3844412, 7205416, 11370048, 19483502, 32416924, 54367066, 88708832, 149179800, 239738369, 445689392
Offset: 0

Views

Author

Gus Wiseman, Jul 19 2020

Keywords

Comments

A strict composition of n (A032020) is a finite sequence of distinct positive integers summing to n.
Is there a simple generating function?

Examples

			The a(1) = 1 through a(5) = 11 ways:
  (1)  (2)  (3)      (4)        (5)
            (2,1)    (3,1)      (3,2)
            (1),(2)  (1),(3)    (4,1)
            (2),(1)  (3),(1)    (1),(4)
                     (1),(2,1)  (2),(3)
                     (2,1),(1)  (3),(2)
                                (4),(1)
                                (1),(3,1)
                                (2,1),(2)
                                (2),(2,1)
                                (3,1),(1)

Links

Crossrefs

Multiset partitions of partitions are A001970.
Strict compositions are counted by A032020, A072574, and A072575.
Splittings of strict partitions are A072706.
Set partitions of strict partitions are A294617.
Splittings of partitions with distinct sums are A336131.
Cf. A008289, A011782, A304786, A318683, A318684, A319794, A323583, A336128, A336130, A336132, A336133.
Partitions:
- Partitions of each part of a partition are A063834.
- Compositions of each part of a partition are A075900.
- Strict partitions of each part of a partition are A270995.
- Strict compositions of each part of a partition are A336141.
Strict partitions:
- Partitions of each part of a strict partition are A271619.
- Compositions of each part of a strict partition are A304961.
- Strict partitions of each part of a strict partition are A279785.
- Strict compositions of each part of a strict partition are A336142.
Compositions:
- Partitions of each part of a composition are A055887.
- Compositions of each part of a composition are A133494.
- Strict partitions of each part of a composition are A304969.
- Strict compositions of each part of a composition are A307068.
Strict compositions:
- Partitions of each part of a strict composition are A336342.
- Compositions of each part of a strict composition are A336127.
- Strict partitions of each part of a strict composition are A336343.
- Strict compositions of each part of a strict composition are A336139.

Programs

  • Mathematica
    strptn[n_]:=Select[IntegerPartitions[n],UnsameQ@@#&];
Table[Length[Join@@Table[Tuples[strptn/@ctn],{ctn,Join@@Permutations/@strptn[n]}]],{n,0,10}]
  • PARI
    \\ here Q(N) gives A000009 as a vector.
Q(n) = {Vec(eta(x^2 + O(x*x^n))/eta(x + O(x*x^n)))}
seq(n)={my(b=Q(n)); [subst(serlaplace(p),y,1) | p<-Vec(prod(k=1, n, 1 + y*x^k*b[1+k] + O(x*x^n)))]} \\ Andrew Howroyd, Apr 16 2021

Formula

G.f.: Sum_{k>=0} k! * [y^k](Product_{j>=1} 1 + y*x^j*A000009(j)). - Andrew Howroyd, Apr 16 2021

A336136 Number of ways to split an integer partition of n into contiguous subsequences with weakly increasing sums.

Original entry on oeis.org

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
Offset: 0

Views

Author

Gus Wiseman, Jul 11 2020

Keywords

Examples

			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)

Links

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.
Cf. A006951, A063834, A279786, A304961, A305551, A318684, A323433, A336128, A336130, A336133.

Programs

  • 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}]
  • 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

Extensions

a(21) onwards from Andrew Howroyd, Jan 18 2024
Showing 1-5 of 5 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.