A080267 -id:A080267 - cp's OEIS frontend

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

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

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

A359203 a(n) = Sum_{d|n} (n/d) * 3^(n-d).

Original entry on oeis.org

1, 7, 28, 127, 406, 1756, 5104, 20575, 61237, 230122, 649540, 2579932, 6908734, 26044984, 74578888, 269985151, 731794258, 2799670555, 7360989292, 27392181562, 75948764752, 268482753172, 721764371008, 2742292424188, 7078172334031, 25701091008418, 71173405454680

Offset: 1

Seiichi Manyama, Dec 20 2022

Cf. A000203, A080267, A115607, A359204.

Cf. A356539, A359112.

a[n_] := DivisorSum[n, 3^(n-#)*n/# &]; Array[a, 27] (* Amiram Eldar, Aug 23 2023 *)

PARI
```
a(n) = sumdiv(n, d, n/d*3^(n-d));
```

my(N=30, x='x+O('x^N)); Vec(sum(k=1, N, x^k/(1-(3*x)^k)^2))

G.f.: Sum_{k>=1} x^k/(1 - (3 * x)^k)^2.

A359204 a(n) = Sum_{d|n} (n/d) * 4^(n-d).

Original entry on oeis.org

1, 9, 49, 289, 1281, 7041, 28673, 147969, 602113, 2951169, 11534337, 57876481, 218103809, 1056997377, 4113563649, 19394592769, 73014444033, 354385657857, 1305670057985, 6210524807169, 23571585826817, 108851659538433, 404620279021569, 1942025331015681

Offset: 1

Seiichi Manyama, Dec 20 2022

Cf. A000203, A080267, A115607, A359203.

Cf. also A359112.

a[n_] := DivisorSum[n, 4^(n-#)*n/# &]; Array[a, 24] (* Amiram Eldar, Aug 27 2023 *)

PARI
```
a(n) = sumdiv(n, d, n/d*4^(n-d));
```

my(N=30, x='x+O('x^N)); Vec(sum(k=1, N, x^k/(1-(4*x)^k)^2))

G.f.: Sum_{k>=1} x^k/(1 - (4 * x)^k)^2.

cp's OEIS Frontend

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

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

PARI

Formula

Extensions

A359203 a(n) = Sum_{d|n} (n/d) * 3^(n-d).

Views

Author

Keywords

Crossrefs

Programs

Mathematica

PARI

PARI

Formula

A359204 a(n) = Sum_{d|n} (n/d) * 4^(n-d).

Views

Author

Keywords

Crossrefs

Programs

Mathematica

PARI

PARI

Formula