A323583 -id:A323583 - cp's OEIS frontend

A133494 Diagonal of the array of iterated differences of A047848.

1, 1, 3, 9, 27, 81, 243, 729, 2187, 6561, 19683, 59049, 177147, 531441, 1594323, 4782969, 14348907, 43046721, 129140163, 387420489, 1162261467, 3486784401, 10460353203, 31381059609, 94143178827, 282429536481, 847288609443, 2541865828329, 7625597484987, 22876792454961, 68630377364883

Offset: 0

Paul Barry, Paul Curtz, Dec 23 2007

a(n) is the number of ways to choose a composition C, and then choose a composition of each part of C. - Geoffrey Critzer, Mar 19 2012
a(n) is the top left entry of the n-th power of the 3 X 3 matrix [1, 1, 1; 1, 1, 1; 1, 1, 1]. - R. J. Mathar, Feb 03 2014
a(n) is the reptend length of 1/3^(n+1) in decimal. - Jianing Song, Nov 14 2018
Also the number of pairs of integer compositions, the first summing to n and the second with sum equal to the length of the first. If an integer composition is regarded as an arrow from sum to length, these are composable pairs, and the obvious composition operation founds a category of integer compositions. For example, we have (2,1,1,4) . (1,2,1) . (1,2) = (2,6), where dots represent the composition operation. The version without empty compositions is A000244. Composable triples are counted by 1 followed by A000302. The unordered version is A022811. - Gus Wiseman, Jul 14 2022

			From _Gus Wiseman_, Jul 15 2020: (Start)
The a(0) = 1 through a(3) = 9 ways to choose a composition of each part of a composition:
  ()  (1)  (2)      (3)
           (1,1)    (1,2)
           (1),(1)  (2,1)
                    (1,1,1)
                    (1),(2)
                    (2),(1)
                    (1),(1,1)
                    (1,1),(1)
                    (1),(1),(1)
(End)

G. C. Greubel, Table of n, a(n) for n = 0..1000
Bishal Deb, Cyclic sieving phenomena via combinatorics of continued fractions, arXiv:2508.13709 [math.CO], 2025. See p. 42.
Index entries for linear recurrences with constant coefficients, signature (3).

The strict version is A336139.
Splittings of partitions are A323583.
Multiset partitions of partitions are A001970.
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 strict partition are A279785.
Compositions of each part of a strict partition are A304961.
Strict compositions of each part of a composition are A307068.
Compositions of each part of a strict composition are A336127.
Cf. A000012, A000244, A000302, A001906, A006951, A011782, A022811, A071919.
Cf. A072706, A078008, A112467, A182105, A316245, A336128, A336135.
Cf. A339006, A355382, A355384, A355387.

[n eq 0 select 1 else 3^(n-1): n in [0..30]]; // G. C. Greubel, Nov 20 2023

a:= n-> ceil(3^(n-1)):
seq(a(n), n=0..30);  # Alois P. Heinz, Jul 26 2020

CoefficientList[Series[(1 - 2 x)/(1 - 3 x), {x, 0, 50}], x] (* Vladimir Joseph Stephan Orlovsky, Jun 21 2011 *)
Join[{1}, 3^(Range[0, 30])] (* G. C. Greubel, Nov 20 2023 *)

a(n)=max(1,3^(n-1)) \\ Charles R Greathouse IV, Jul 07 2011

Vec((1-2*x)/(1-3*x) + O(x^100)) \\  Altug Alkan, Oct 30 2015

[(3^n + 2*int(n==0))//3 for n in range(31)] # G. C. Greubel, Nov 20 2023

Binomial transform of A078008. - Paul Curtz, Aug 04 2008
From R. J. Mathar, Nov 11 2008: (Start)
G.f.: (1 - 2*x)/(1 - 3*x).
a(n) = A000244(n-1), n > 0. (End)
From Philippe Deléham, Nov 13 2008: (Start)
a(n) = Sum_{k=0..n} A112467(n,k)*2^k.
a(n) = Sum_{k=0..n} A071919(n,k)*2^k. (End)
Let A(x) be the g.f. Then B(x) = x*A(x) satisfies B(x/(1-x)) = x/(1 - 2*B(x)). - Vladimir Kruchinin, Dec 05 2011
G.f.: 1/(1 - (Sum_{k>=1} (x/(1 - x))^k)). - Joerg Arndt, Sep 30 2012
For n > 0, a(n) = 2*(Sum_{k=0..n-1} a(k)) - 1 = 3^(n-1). - J. Conrad, Oct 29 2015
G.f.: 1 + x/(1 + x)*(1 + 4*x/(1 + 4*x)*(1 + 7*x/(1 + 7*x)*(1 + 10*x/(1 + 10*x)*(1 + .... - Peter Bala, May 27 2017
Invert transform of A011782(n) = 2^(n-1). Second invert transform of A000012. - Gus Wiseman, Jul 19 2020
a(n) = ceiling(3^(n-1)). - Alois P. Heinz, Jul 26 2020
From Elmo R. Oliveira, Mar 31 2025: (Start)
E.g.f.: (2 + exp(3*x))/3.
a(n) = 3*a(n-1) for n > 1. (End)

Definition clarified by R. J. Mathar, Nov 11 2008

A006951 Number of conjugacy classes in GL(n,2).

Original entry on oeis.org

1, 1, 3, 6, 14, 27, 60, 117, 246, 490, 1002, 1998, 4053, 8088, 16284, 32559, 65330, 130626, 261726, 523374, 1047690, 2095314, 4192479, 8384808, 16773552, 33546736, 67101273, 134202258, 268420086, 536839446, 1073710914, 2147420250, 4294904430, 8589807438

Offset: 0

N. J. A. Sloane

nonn

Unlabeled permutations of sets. - Christian G. Bower, Jan 29 2004
From Joerg Arndt, Jan 02 2013: (Start)
Set q=2 and f(m)=q^(m-1)*(q-1), then a(n) is the sum over all partitions P of n over all products Product_{k=1..L} f(m_k) where L is the number of different parts in the partition P=[p_1^m_1, p_2^m_2, ..., p_L^m_L], see the Macdonald reference.
Setting q to a prime power gives the sequence "Number of conjugacy classes in GL(n,q)":
q=3: A006952, q=4: A049314, q=5: A049315, q=7: A049316, q=8: A182603,
q=9: A182604, q=11: A182605, q=13: A182606, q=16: A182607, q=17: A182608,
q=19: A182609, q=23: A182610, q=25: A182611, q=27: A182612.
Sequences where q is not a prime power are:
q=6: A221578, q=10: A221579, q=12: A221580,
q=14: A221581, q=15: A221582, q=18: A221583, q=20: A221584.
(End)
From Gus Wiseman, Jan 21 2019: (Start)
Also the number of ways to split an integer partition of n into consecutive constant subsequences. For example, the a(5) = 27 ways (subsequences shown as rows) are:
  5   11111
.
  4   3   3    22   2     1111   1      111   11
  1   2   11   1    111   1      1111   11    111
.
  3   2   2    2    111   1     1     11   11   1
  1   2   11   1    1     111   1     11   1    11
  1   1   1    11   1     1     111   1    11   11
.
  2   11   1    1    1
  1   1    11   1    1
  1   1    1    11   1
  1   1    1    1    11
.
  1
  1
  1
  1
  1
(End)

			For the 5 partitions of 4 (namely [1^4]; [2,1^2]; [2^2]; [3,1]; [4]) we have
(f(m) = 2^(m-1)*(2-1) = 2^(m-1) and)
f([1^4]) = 2^3 = 8,
f([2,1^2]) = 1*2^1 = 2,
f([2^2]) = 2^1 = 2,
f([3,1]) = 1*1 = 1,
f([4]) = 1,
the sum is 8+2+2+1+1 = 14 = a(4).
- _Joerg Arndt_, Jan 02 2013

W. D. Smith, personal communication.
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Alois P. Heinz, Table of n, a(n) for n = 0..1000
W. Feit and N. J. Fine, Pairs of commuting matrices over a finite field, Duke Math. Journal, 27 (1960) 91-94.
INRIA Algorithms Project, Encyclopedia of Combinatorial Structures 161
I. G. Macdonald, Numbers of conjugacy classes in some finite classical groups, Bulletin of the Australian Mathematical Society, vol.23, no.01, pp.23-48, (February-1981).
N. J. A. Sloane, Transforms

Cf. A006952, A049314, A049315, A049316, A070933, A264685, A264687.
Column k=0 of A218698. - Alois P. Heinz, Nov 04 2012
Cf. A100471, A100883, A279784, A279786, A323433, A323582, A323583.

/* The program does not work for n>19: */
[1] cat [NumberOfClasses(GL(n,2)): n in [1..19]]; // Sergei Haller (sergei(AT)sergei-haller.de), Dec 21 2006; edited by Vincenzo Librandi Jan 24 2013

with(numtheory):
b:= n-> add(phi(d)*2^(n/d), d=divisors(n))/n-1:
a:= proc(n) option remember; `if`(n=0, 1,
       add(add(d*b(d), d=divisors(j)) *a(n-j), j=1..n)/n)
    end:
seq(a(n), n=0..40);  # Alois P. Heinz, Oct 20 2012

b[n_] := Sum[EulerPhi[d]*2^(n/d), {d, Divisors[n]}]/n-1; a[n_] := a[n] = If[n == 0, 1, Sum[Sum[d*b[d], {d, Divisors[j]}]*a[n-j], {j, 1, n}]/n]; Table[a[n], {n, 0, 40}] (* Jean-François Alcover, Feb 17 2014, after Alois P. Heinz *)
Table[Sum[2^(Length[ptn]-Length[Split[ptn]]),{ptn,IntegerPartitions[n]}],{n,30}] (* Gus Wiseman, Jan 21 2019 *)

N=66; x='x+O('x^N);
gf=prod(n=1,N, (1-x^n)/(1-2*x^n)  );
v=Vec(gf)
/* Joerg Arndt, Jan 02 2013 */

G.f.: Product_{n>=1} (1-x^n)/(1-2*x^n). - Joerg Arndt, Jan 02 2013
The number a(n) of conjugacy classes in the group GL(n, q) is the coefficient of t^n in Product_{k>=1} (1-t^k)/(1-q*t^k). - Noam Katz (noamkj(AT)hotmail.com), Mar 30 2001
Euler transform of A008965. - Christian G. Bower, Jan 29 2004
a(n) ~ 2^n - (1+sqrt(2) + (-1)^n*(1-sqrt(2))) * 2^(n/2-1). - Vaclav Kotesovec, Nov 21 2015
G.f.: exp(Sum_{k>=1} ( Sum_{d|k} d*(2^(k/d) - 1) ) * x^k/k). - Ilya Gutkovskiy, Sep 27 2018

More terms from Christian G. Bower, Jan 29 2004

A075900 Expansion of g.f.: Product_{n>0} 1/(1 - 2^(n-1)*x^n).

Original entry on oeis.org

1, 1, 3, 7, 19, 43, 115, 259, 659, 1523, 3731, 8531, 20883, 47379, 113043, 259219, 609683, 1385363, 3245459, 7344531, 17028499, 38579603, 88585619, 199845267, 457864595, 1028904339, 2339763603, 5256820115, 11896157587, 26626389395

Offset: 0

N. J. A. Sloane, Oct 15 2002

nonn

Number of compositions of partitions of n. a(3) = 7: 3, 21, 12, 111, 2|1, 11|1, 1|1|1. - Alois P. Heinz, Sep 16 2019
Also the number of ways to split an integer composition of n into consecutive subsequences with weakly decreasing (or increasing) sums. - Gus Wiseman, Jul 13 2020
This sequence is obtained from the generalized Euler transform in A266964 by taking f(n) = 1, g(n) = 2^(n-1). - Seiichi Manyama, Aug 22 2020

			From _Gus Wiseman_, Jul 13 2020: (Start)
The a(0) = 1 through a(4) = 19 splittings:
  ()  (1)  (2)      (3)          (4)
           (1,1)    (1,2)        (1,3)
           (1),(1)  (2,1)        (2,2)
                    (1,1,1)      (3,1)
                    (2),(1)      (1,1,2)
                    (1,1),(1)    (1,2,1)
                    (1),(1),(1)  (2,1,1)
                                 (2),(2)
                                 (3),(1)
                                 (1,1,1,1)
                                 (1,1),(2)
                                 (1,2),(1)
                                 (2),(1,1)
                                 (2,1),(1)
                                 (1,1),(1,1)
                                 (1,1,1),(1)
                                 (2),(1),(1)
                                 (1,1),(1),(1)
                                 (1),(1),(1),(1)
(End)

Vaclav Kotesovec, Table of n, a(n) for n = 0..3180 (terms 0..1000 from Alois P. Heinz)
N. J. A. Sloane and Thomas Wieder, The Number of Hierarchical Orderings, arXiv:math/0307064 [math.CO], 2003; Order 21 (2004), 83-89.

Row sums of A327549.
The strict case is A304961.
Partitions of partitions are A001970.
Splittings with equal sums are A074854.
Splittings of compositions are A133494.
Splittings of partitions are A323583.
Splittings with distinct sums are A336127.
Starting with a reversed partition gives A316245.
Starting with a partition instead of composition gives A336136.
Cf. A006951, A063834, A300579, A317715, A319794, A323582, A327548, A336135.

m:=80;
R:=PowerSeriesRing(Integers(), m);
Coefficients(R!( 1/(&*[1-2^(j-1)*x^j: j in [1..m+2]]) )); // G. C. Greubel, Jan 25 2024

oo := 101; t1 := mul(1/(1-x^n/2),n=1..oo): t2 := series(t1,x,oo-1): t3 := seriestolist(t2): A075900 := n->2^n*t3[n+1];
with(combinat); A075900 := proc(n) local i,t1,t2,t3; t1 := partition(n); t2 := 0; for i from 1 to nops(t1) do t3 := t1[i]; t2 := t2+2^(n-nops(t3)); od: t2; end;

b[n_]:= b[n]= Sum[d*2^(n - n/d), {d, Divisors[n]}];
a[0]= 1; a[n_]:= a[n]= 1/n*Sum[b[k]*a[n-k], {k,n}];
Table[a[n], {n,0,30}] (* Jean-François Alcover, Mar 20 2014, after Vladeta Jovovic, fixed by Vaclav Kotesovec, Mar 08 2018 *)

s(m,n):=if nVladimir Kruchinin, Sep 06 2014 */

{a(n)=polcoeff(prod(k=1,n,1/(1-2^(k-1)*x^k+x*O(x^n))),n)} \\ Paul D. Hanna, Jan 13 2013

{a(n)=polcoeff(exp(sum(k=1,n+1,x^k/(k*(1-2^k*x^k)+x*O(x^n)))),n)} \\ Paul D. Hanna, Jan 13 2013

m=80;
def A075900_list(prec):
    P. = PowerSeriesRing(QQ, prec)
    return P( 1/product(1-2^(j-1)*x^j for j in range(1,m+1)) ).list()
A075900_list(m) # G. C. Greubel, Jan 25 2024

a(n) = Sum_{ partitions n = c_1 + ... + c_k } 2^(n-k). If p(n, m) = number of partitions of n into m parts, a(n) = Sum_{m=1..n} p(n, m)*2^(n-m).
G.f.: Sum_{n>=0} (a(n)/2^n)*x^n = Product_{n>0} 1/(1-x^n/2). - Vladeta Jovovic, Feb 11 2003
a(n) = 1/n*Sum_{k=1..n} A080267(k)*a(n-k). - Vladeta Jovovic, Feb 11 2003
G.f.: exp( Sum_{n>=1} x^n / (n*(1 - 2^n*x^n)) ). - Paul D. Hanna, Jan 13 2013
a(n) = s(1,n), a(0)=1, where s(m,n) = Sum_{k=m..n/2} 2^(k-1)*s(k, n-k)  + 2^(n-1), s(n,n) = 2^(n-1), s(m,n)=0, m>. - Vladimir Kruchinin, Sep 06 2014
a(n) ~ 2^(n-2) * (Pi^2 - 6*log(2)^2)^(1/4) * exp(sqrt((Pi^2 - 6*log(2)^2)*n/3)) / (3^(1/4) * sqrt(Pi) * n^(3/4)). - Vaclav Kotesovec, Mar 09 2018

More terms from Vladeta Jovovic, Feb 11 2003

A304961 Expansion of Product_{k>=1} (1 + 2^(k-1)*x^k).

Original entry on oeis.org

1, 1, 2, 6, 12, 32, 72, 176, 384, 960, 2112, 4992, 11264, 26112, 58368, 136192, 301056, 688128, 1548288, 3489792, 7766016, 17596416, 38993920, 87293952, 194248704, 432537600, 957349888, 2132803584, 4699717632, 10406068224, 23001563136, 50683969536, 111434268672, 245819768832

Offset: 0

Ilya Gutkovskiy, May 22 2018

nonn

Number of compositions of partitions of n into distinct parts. a(3) = 6: 3, 21, 12, 111, 2|1, 11|1. - Alois P. Heinz, Sep 16 2019
Also the number of ways to split a composition of n into contiguous subsequences with strictly decreasing sums. - Gus Wiseman, Jul 13 2020
This sequence is obtained from the generalized Euler transform in A266964 by taking f(n) = -1, g(n) = (-1) * 2^(n-1). - Seiichi Manyama, Aug 22 2020

			From _Gus Wiseman_, Jul 13 2020: (Start)
The a(0) = 1 through a(4) = 12 splittings:
  ()  (1)  (2)    (3)        (4)
           (1,1)  (1,2)      (1,3)
                  (2,1)      (2,2)
                  (1,1,1)    (3,1)
                  (2),(1)    (1,1,2)
                  (1,1),(1)  (1,2,1)
                             (2,1,1)
                             (3),(1)
                             (1,1,1,1)
                             (1,2),(1)
                             (2,1),(1)
                             (1,1,1),(1)
(End)

Cf. A000009, A011782, A022629, A098407, A102866, A266964, A271619, A279785.
The non-strict version is A075900.
Starting with a reversed partition gives A323583.
Starting with a partition gives A336134.
Partitions of partitions are A001970.
Splittings with equal sums are A074854.
Splittings of compositions are A133494.
Splittings with distinct sums are A336127.
Cf. A006951, A063834, A316245, A317715, A319794, A323582, A336135, A336136.

nmax = 33; CoefficientList[Series[Product[(1 + 2^(k - 1) x^k), {k, 1, nmax}], {x, 0, nmax}], x]

N=40; x='x+O('x^N); Vec(prod(k=1, N, 1+2^(k-1)*x^k)) \\ Seiichi Manyama, Aug 22 2020

G.f.: Product_{k>=1} (1 + A011782(k)*x^k).

a(n) ~ 2^n * exp(2*sqrt(-polylog(2, -1/2)*n)) * (-polylog(2, -1/2))^(1/4) / (sqrt(6*Pi) * n^(3/4)). - Vaclav Kotesovec, Sep 19 2019

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

Original entry on oeis.org

1, 1, 2, 8, 16, 48, 144, 352, 896, 2432, 7168, 16896, 46080, 114688, 303104, 843776, 2080768, 5308416, 13762560, 34865152, 87818240, 241172480, 583008256, 1503657984, 3762290688, 9604956160, 23689428992, 60532195328, 156397207552, 385137770496, 967978254336

Offset: 0

Gus Wiseman, Jul 09 2020

nonn

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

			The a(0) = 1 through a(4) = 16 splits:
  ()  (1)  (2)    (3)        (4)
           (1,1)  (1,2)      (1,3)
                  (2,1)      (2,2)
                  (1,1,1)    (3,1)
                  (1),(2)    (1,1,2)
                  (2),(1)    (1,2,1)
                  (1),(1,1)  (1),(3)
                  (1,1),(1)  (2,1,1)
                             (3),(1)
                             (1,1,1,1)
                             (1),(1,2)
                             (1),(2,1)
                             (1,2),(1)
                             (2,1),(1)
                             (1),(1,1,1)
                             (1,1,1),(1)

Gus Wiseman, Sequences counting and ranking multiset partitions whose part lengths, sums, or averages are constant or strict.

The version with equal instead of different sums is A074854.
Starting with a strict composition gives A336128.
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.
Compositions of partitions are A323583.
Cf. A006951, A063834, A279786, A305551, A316245, A317715, A323433, A336130, A336134, A336135.

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/@IntegerPartitions[n]}],{n,0,10}]

a(n) = Sum_{k=0..n} 2^(n-k) k! A008289(n,k).

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

Gus Wiseman, Jul 10 2020

nonn

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

			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)

Gus Wiseman, Sequences counting and ranking multiset partitions whose part lengths, sums, or averages are constant or strict.

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.

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

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

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

Gus Wiseman, Jul 11 2020

nonn

			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)

Gus Wiseman, Sequences counting and ranking multiset partitions whose part lengths, sums, or averages are constant or strict.

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.

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

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

A074854 a(n) = Sum_{d|n} (2^(n-d)).

Original entry on oeis.org

1, 3, 5, 13, 17, 57, 65, 209, 321, 801, 1025, 3905, 4097, 12417, 21505, 53505, 65537, 233985, 262145, 885761, 1327105, 3147777, 4194305, 16060417, 17825793, 50339841, 84148225, 220217345, 268435457, 990937089, 1073741825, 3506503681

Offset: 1

Miklos Kristof, Sep 11 2002

A034729 = Sum_{d|n} (2^(d-1)).
A055895 = 2*A034729.
If p is a prime, then a(p) = A034729(p) = 2^(p-1)+1.
From Gus Wiseman, Jul 14 2020: (Start)
Number of ways to tile a rectangle of size n using horizontal strips. Also the number of ways to choose a composition of each part of a constant partition of n. The a(0) = 1 through a(5) = 17 splittings are:
  ()  (1)  (2)      (3)          (4)              (5)
           (1,1)    (1,2)        (1,3)            (1,4)
           (1),(1)  (2,1)        (2,2)            (2,3)
                    (1,1,1)      (3,1)            (3,2)
                    (1),(1),(1)  (1,1,2)          (4,1)
                                 (1,2,1)          (1,1,3)
                                 (2,1,1)          (1,2,2)
                                 (2),(2)          (1,3,1)
                                 (1,1,1,1)        (2,1,2)
                                 (1,1),(2)        (2,2,1)
                                 (2),(1,1)        (3,1,1)
                                 (1,1),(1,1)      (1,1,1,2)
                                 (1),(1),(1),(1)  (1,1,2,1)
                                                  (1,2,1,1)
                                                  (2,1,1,1)
                                                  (1,1,1,1,1)
                                                  (1),(1),(1),(1),(1)
(End)

			Divisors of 6 = 1,2,3,6 and 6-1 = 5, 6-2 = 4, 6-3 = 3, 6-6 = 0. a(6) = 2^5 + 2^4 + 2^3 + 2^0 = 32 + 16 + 8 + 1 = 57.
G.f. = x + 3*x^2 + 5*x^3 + 13*x^4 + 17*x^5 + 57*x^6 + 65*x^7 + ...
a(14) = 1 + 2^7 + 2^12 + 2^13 = 12417. - _Gus Wiseman_, Jun 20 2018

Gus Wiseman, Table of n, a(n) for n = 1..32

Cf. A055895, A034729.
Cf. A080267.
Cf. A051731.
The version looking at lengths instead of sums is A101509.
The strictly increasing (or strictly decreasing) version is A304961.
Starting with a partition gives A317715.
Starting with a strict partition gives A318683.
Requiring distinct instead of equal sums gives A336127.
Starting with a strict composition gives A336130.
Partitions of partitions are A001970.
Splittings of compositions are A133494.
Splittings of partitions are A323583.
Cf. A006951, A063834, A075900, A279787, A305551, A316245, A323433, A336128.

a[ n_] := If[ n < 1, 0, Sum[ 2^(n - d), {d, Divisors[n]}]] (* Michael Somos, Mar 28 2013 *)

a(n)=if(n<1,0,2^n*polcoeff(sum(k=1,n,2/(2-x^k),x*O(x^n)),n))

a(n) = sumdiv(n,d, 2^(n-d) ); /* Joerg Arndt, Mar 28 2013 */

G.f.: 2^n times coefficient of x^n in Sum_{k>=1} x^k/(2-x^k). - Benoit Cloitre, Apr 21 2003; corrected by Joerg Arndt, Mar 28 2013
G.f.: Sum_{k>0} 2^(k-1)*x^k/(1-2^(k-1)*x^k). - Vladeta Jovovic, Jun 24 2003
G.f.: Sum_{n>=1} a*z^n/(1-a*z^n) (generalized Lambert series) where z=2*x and a=1/2. - Joerg Arndt, Jan 30 2011
Triangle A051731 mod 2 converted to decimal. - Philippe Deléham, Oct 04 2003
G.f.: Sum_{k>0} 1 / (2 / (2*x)^k - 1). - Michael Somos, Mar 28 2013

a(14) corrected from 9407 to 12417 by Gus Wiseman, Jun 20 2018

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

Gus Wiseman, Jul 11 2020

nonn

			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)

Andrew Howroyd, Table of n, a(n) for n = 0..50

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.

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

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

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

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

Original entry on oeis.org

1, 1, 2, 7, 11, 29, 81, 155, 312, 708, 1950, 3384, 7729, 14929, 32407, 81708, 151429, 305899, 623713, 1234736, 2463743, 6208978, 10732222, 22487671, 43000345, 86573952, 160595426, 324990308, 744946690, 1336552491, 2629260284, 5050032692, 9681365777

Offset: 0

Gus Wiseman, Jul 18 2020

nonn

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

Is there a simple generating function?

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

Andrew Howroyd, Table of n, a(n) for n = 0..1000

Multiset partitions of partitions are A001970.
Strict compositions are counted by A032020, A072574, and A072575.
Splittings of partitions are A323583.
Splittings of partitions with distinct sums are A336131.
Cf. A008289, A011782, A304786, A316245, A317715, A336128, A336132, A336134, A336135.
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.

Table[Length[Join@@Table[Tuples[IntegerPartitions/@ctn],{ctn,Join@@Permutations/@Select[IntegerPartitions[n],UnsameQ@@#&]}]],{n,0,10}]

seq(n)={[subst(serlaplace(p),y,1) | p<-Vec(prod(k=1, n, 1 + y*x^k*numbpart(k) + O(x*x^n)))]} \\ Andrew Howroyd, Apr 16 2021

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

cp's OEIS Frontend

A133494 Diagonal of the array of iterated differences of A047848.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Magma

Maple

Mathematica

PARI

PARI

SageMath

Formula

Extensions

A006951 Number of conjugacy classes in GL(n,2).

Views

Author

Keywords

Comments

Examples

References

Links

Crossrefs

Programs

Magma

Maple

Mathematica

PARI

Formula

Extensions

A075900 Expansion of g.f.: Product_{n>0} 1/(1 - 2^(n-1)*x^n).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Magma

Maple

Mathematica

Maxima

PARI

PARI

SageMath

Formula

Extensions

A304961 Expansion of Product_{k>=1} (1 + 2^(k-1)*x^k).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

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

Views

Author

Keywords

Comments