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-10 of 18 results. Next

A316245 Number of ways to split an integer partition of n into consecutive subsequences with weakly decreasing sums.

Original entry on oeis.org

1, 1, 3, 6, 14, 25, 52, 89, 167, 279, 486, 786, 1322, 2069, 3326, 5128, 8004, 12055, 18384, 27203, 40588, 59186, 86645, 124583, 179784, 255111, 362767, 509319, 715422, 993681, 1380793, 1899630, 2613064, 3564177, 4857631, 6572314, 8884973, 11930363, 16002853
Offset: 0

Views

Author

Gus Wiseman, Sep 29 2018

Keywords

Examples

			The a(4) = 14 split partitions:
  (4)
  (31)
  (22)
  (211)
  (3)(1)
  (2)(2)
  (1111)
  (21)(1)
  (2)(11)
  (111)(1)
  (11)(11)
  (2)(1)(1)
  (11)(1)(1)
  (1)(1)(1)(1)

Links

Crossrefs

Cf. A000041, A001970, A063834, A316223, A317546, A319001, A319003.
Cf. A317508, A317715, A318434, A318683, A318684, A319794.

Programs

  • Mathematica
    comps[q_]:=Table[Table[Take[q,{Total[Take[c,i-1]]+1,Total[Take[c,i]]}],{i,Length[c]}],{c,Join@@Permutations/@IntegerPartitions[Length[q]]}];
Table[Sum[Length[Select[comps[y],OrderedQ[Total/@#,GreaterEqual]&]],{y,IntegerPartitions[n]}],{n,10}]
  • PARI
    a(n)={my(recurse(r,m,s,t,f)=if(m==0, r==0, if(f, self()(r,min(m,t),t,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,0)} \\ Andrew Howroyd, Jan 18 2024

Extensions

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

A317715 Number of ways to split an integer partition of n into consecutive subsequences with equal sums.

Original entry on oeis.org

1, 1, 3, 4, 9, 8, 21, 16, 39, 38, 64, 57, 146, 102, 186, 211, 352, 298, 593, 491, 906, 880, 1273, 1256, 2444, 1998, 3038, 3277, 4861, 4566, 7710, 6843, 10841, 10742, 14966, 15071, 24499, 21638, 31334, 32706, 47157, 44584, 67464, 63262, 91351, 94247, 125248
Offset: 0

Views

Author

Gus Wiseman, Sep 29 2018

Keywords

Examples

			The a(4) = 9 constant-sum split partitions:
  (4),
  (31),
  (22), (2)(2),
  (211), (2)(11),
  (1111), (11)(11), (1)(1)(1)(1).
The a(6) = 21 constant-sum split partitions:
  (6),
  (51),
  (42),
  (411),
  (33), (3)(3),
  (321), (3)(21),
  (3111), (3)(111),
  (222), (2)(2)(2),
  (2211), (2)(2)(11),
  (21111), (21)(111), (2)(11)(11),
  (111111), (111)(111), (11)(11)(11), (1)(1)(1)(1)(1)(1).

Links

Crossrefs

Cf. A000041, A001970, A063834, A316223, A317545, A317546, A319001.
Cf. A316245, A317508, A318434, A318683, A318684, A319794.

Programs

  • Mathematica
    comps[q_]:=Table[Table[Take[q,{Total[Take[c,i-1]]+1,Total[Take[c,i]]}],{i,Length[c]}],{c,Join@@Permutations/@IntegerPartitions[Length[q]]}];
Table[Sum[Length[Select[comps[y],SameQ@@Total/@#&]],{y,IntegerPartitions[n]}],{n,10}]

Extensions

a(16)-a(46) from Hiroaki Yamanouchi, Oct 02 2018

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

A319794 Number of ways to split a strict integer partition of n into consecutive subsequences with weakly decreasing sums.

Original entry on oeis.org

1, 1, 1, 3, 3, 5, 9, 11, 15, 20, 31, 37, 52, 64, 85, 111, 141, 175, 225, 279, 346, 437, 532, 654, 802, 979, 1182, 1438, 1740, 2083, 2502, 2996, 3565, 4245, 5043, 5950, 7068, 8303, 9772, 11449, 13452, 15681, 18355, 21338, 24855, 28846, 33509, 38687, 44819, 51644
Offset: 0

Views

Author

Gus Wiseman, Sep 29 2018

Keywords

Examples

			The a(6) = 9 split partitions:
    (6)
   (51)  (5)(1)
   (42)  (4)(2)
  (321)  (32)(1)  (3)(21)  (3)(2)(1).

Crossrefs

Cf. A001970, A063834, A316245, A317508, A317546, A317715, A318434, A318683, A318684.

Programs

  • Mathematica
    comps[q_]:=Table[Table[Take[q,{Total[Take[c,i-1]]+1,Total[Take[c,i]]}],{i,Length[c]}],{c,Join@@Permutations/@IntegerPartitions[Length[q]]}];
Table[Sum[Length[Select[comps[y],OrderedQ[Total/@#,GreaterEqual]&]],{y,Select[IntegerPartitions[n],UnsameQ@@#&]}],{n,30}]

A336130 Number of ways to split a strict composition of n into contiguous subsequences all having the same sum.

Original entry on oeis.org

1, 1, 1, 3, 3, 5, 15, 13, 23, 27, 73, 65, 129, 133, 241, 375, 519, 617, 1047, 1177, 1859, 2871, 3913, 4757, 7653, 8761, 13273, 16155, 28803, 30461, 50727, 55741, 87743, 100707, 152233, 168425, 308937, 315973, 500257, 571743, 871335, 958265, 1511583, 1621273, 2449259, 3095511, 4335385, 4957877, 7554717, 8407537, 12325993, 14301411, 20348691, 22896077, 33647199, 40267141, 56412983, 66090291, 93371665, 106615841, 155161833
Offset: 0

Views

Author

Gus Wiseman, Jul 11 2020

Keywords

Examples

			The a(1) = 1 through a(7) = 13 splits:
  (1)  (2)  (3)    (4)    (5)    (6)        (7)
            (1,2)  (1,3)  (1,4)  (1,5)      (1,6)
            (2,1)  (3,1)  (2,3)  (2,4)      (2,5)
                          (3,2)  (4,2)      (3,4)
                          (4,1)  (5,1)      (4,3)
                                 (1,2,3)    (5,2)
                                 (1,3,2)    (6,1)
                                 (2,1,3)    (1,2,4)
                                 (2,3,1)    (1,4,2)
                                 (3,1,2)    (2,1,4)
                                 (3,2,1)    (2,4,1)
                                 (1,2),(3)  (4,1,2)
                                 (2,1),(3)  (4,2,1)
                                 (3),(1,2)
                                 (3),(2,1)

Links

Crossrefs

The version with different instead of equal sums is A336128.
Starting with a non-strict composition gives A074854.
Starting with a partition gives A317715.
Starting with a strict partition gives A318683.
Set partitions with equal block-sums are A035470.
Partitions of partitions are A001970.
Partitions of compositions are A075900.
Compositions of compositions are A133494.
Compositions of partitions are A323583.
Cf. A006951, A063834, A271619, A279375, A305551, A317508, A318684, A326519, A336127, A336132, 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],SameQ@@Total/@#&]],{ctn,Join@@Permutations/@Select[IntegerPartitions[n],UnsameQ@@#&]}],{n,0,15}]

Extensions

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

A318683 Number of ways to split a strict integer partition of n into consecutive subsequences with equal sums.

Original entry on oeis.org

1, 1, 1, 2, 2, 3, 5, 5, 7, 8, 12, 12, 18, 18, 26, 27, 37, 38, 53, 54, 73, 76, 100, 104, 136, 142, 183, 192, 244, 256, 327, 340, 424, 448, 558, 585, 722, 760, 937, 983, 1195, 1260, 1544, 1610, 1943, 2053, 2480, 2590, 3107, 3264, 3927, 4106, 4874, 5120, 6134, 6378
Offset: 0

Views

Author

Gus Wiseman, Sep 29 2018

Keywords

Examples

			The a(12) = 18 constant-sum split partitions:
  (12)
  (7,5)
  (8,4)
  (9,3)
  (10,2)
  (11,1)
  (5,4,3)
  (6,4,2)
  (6,5,1)
  (7,3,2)
  (7,4,1)
  (8,3,1)
  (9,2,1)
  (6)(4,2)
  (6)(5,1)
  (5,4,2,1)
  (6,3,2,1)
  (6)(3,2,1)

Crossrefs

Cf. A001970, A063834, A316245, A317508, A317546, A317715, A318434, A318683, A318684, A319794.

Programs

  • Mathematica
    comps[q_]:=Table[Table[Take[q,{Total[Take[c,i-1]]+1,Total[Take[c,i]]}],{i,Length[c]}],{c,Join@@Permutations/@IntegerPartitions[Length[q]]}];
Table[Sum[Length[Select[comps[y],SameQ@@Total/@#&]],{y,Select[IntegerPartitions[n],UnsameQ@@#&]}],{n,30}]

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

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

Original entry on oeis.org

1, 1, 1, 5, 9, 17, 45, 81, 181, 397, 965, 1729, 3673, 7313, 15401, 34065, 68617, 135069, 266701, 556969, 1061921, 2434385, 4436157, 9120869, 17811665, 35651301, 68949549, 136796317, 283612973, 537616261, 1039994921, 2081261717, 3980842425, 7723253181, 15027216049
Offset: 0

Views

Author

Gus Wiseman, Jul 16 2020

Keywords

Comments

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

Examples

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

Links

Crossrefs

The version for partitions is A063834.
Row sums of A072574.
The version for non-strict compositions is A133494.
The version for strict partitions is A279785.
Multiset partitions of partitions are A001970.
Strict compositions are A032020.
Taking a composition of each part of a partition: A075900.
Taking a composition of each part of a strict partition: A304961.
Taking a strict composition of each part of a composition: A307068.
Splittings of partitions are A323583.
Compositions of parts of strict compositions are A336127.
Set partitions of strict compositions are A336140.
Cf. A318683, A318684, A319794, A336128, A336130, A336132.

Programs

  • Mathematica
    strs[n_]:=Join@@Permutations/@Select[IntegerPartitions[n],UnsameQ@@#&];
Table[Length[Join@@Table[Tuples[strs/@ctn],{ctn,strs[n]}]],{n,0,15}]

A307068 Expansion of 1/(1 - Sum_{k>=1} k!*x^(k*(k+1)/2) / Product_{j=1..k} (1 - x^j)).

Original entry on oeis.org

1, 1, 2, 6, 14, 34, 88, 216, 532, 1322, 3290, 8142, 20192, 50080, 124144, 307878, 763474, 1893038, 4694060, 11639580, 28861736, 71567206, 177460750, 440037738, 1091134276, 2705618900, 6708953156, 16635775698, 41250705518, 102286806130, 253634237896, 628921097352, 1559496588628
Offset: 0

Views

Author

Ilya Gutkovskiy, Mar 22 2019

Keywords

Comments

Invert transform of A032020.
Number of ways to choose a strict composition of each part of a composition of n. - Gus Wiseman, Jul 18 2020
The Invert transform T(a) of a sequence a is given by T(a)n = Sum_c Product_i a(c_i), where the sum is over all compositions c of n. - _Gus Wiseman, Aug 01 2020

Examples

			From _Gus Wiseman_, Jul 18 2020: (Start)
The a(1) = 1 through a(4) = 14 ways to choose a strict composition of each part of a composition:
    (1)  (2)      (3)          (4)
         (1),(1)  (1,2)        (1,3)
                  (2,1)        (3,1)
                  (1),(2)      (1),(3)
                  (2),(1)      (2),(2)
                  (1),(1),(1)  (3),(1)
                               (1),(1,2)
                               (1),(2,1)
                               (1,2),(1)
                               (2,1),(1)
                               (1),(1),(2)
                               (1),(2),(1)
                               (2),(1),(1)
                               (1),(1),(1),(1)
(End)

Links

Crossrefs

The version for partitions is A270995.
Starting with a strict composition gives A336139.
Strict compositions are counted by A032020.
Partitions of each part of a partition are A063834.
Compositions of each part of a partition are A075900.
Compositions of each part of a composition are A133494.
Strict partitions of each part of a strict partition are A279785.
Compositions of each part of a strict partition are A304961.
Strict partitions of each part of a composition are A304969.
Compositions of each part of a strict composition are A336127.
Set partitions of strict compositions are A336140.
Strict compositions of each part of a partition are A336141.
Cf. A001970, A307067, A317536, A318683, A318684, A319794, A323583, A336128, A336130, A336132.

Programs

  • Magma
    m:=80;
R:=PowerSeriesRing(Integers(), m);
Coefficients(R!( 1/(1 - (&+[Factorial(k)*x^Binomial(k+1,2)/(&*[ 1-x^j: j in [1..k]]): k in [1..m+2]]) ) )); // G. C. Greubel, Jan 25 2024
  • Maple
    T:= proc(n, k) option remember; `if`(k<0 or n<0, 0,
      `if`(k=0, `if`(n=0, 1, 0), T(n-k, k) +k*T(n-k, k-1)))
    end:
g:= proc(n) option remember; add(T(n, k), k=0..floor((sqrt(8*n+1)-1)/2)) end:
a:= proc(n) option remember; `if`(n<1, 1,
      add(a(n-i)*g(i), i=1..n))
    end:
seq(a(n), n=0..32);  # Alois P. Heinz, Dec 16 2022
  • Mathematica
    nmax = 32; CoefficientList[Series[1/(1 - Sum[k!*x^(k*(k+1)/2)/Product[ (1-x^j), {j,k}], {k,nmax}]), {x, 0, nmax}], x]
  • SageMath
    m=80;
def p(x, j): return product(1-x^k for k in range(1,j+1))
def f(x): return 1/(1 - sum(factorial(j)*x^binomial(j+1,2)/p(x,j) for j in range(1, m+3)) )
def A307068_list(prec):
    P. = PowerSeriesRing(QQ, prec)
    return P( f(x) ).list()
A307068_list(m) # G. C. Greubel, Jan 25 2024

Formula

a(0) = 1; a(n) = Sum_{k=1..n} A032020(k)*a(n-k).
Showing 1-10 of 18 results. Next

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

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