A260916 -id:A260916 - cp's OEIS frontend

A166861 Euler transform of Fibonacci numbers.

1, 1, 2, 4, 8, 15, 30, 56, 108, 203, 384, 716, 1342, 2487, 4614, 8510, 15675, 28749, 52652, 96102, 175110, 318240, 577328, 1045068, 1888581, 3406455, 6134530, 11029036, 19799363, 35490823, 63531134, 113570988, 202767037, 361565865, 643970774, 1145636750

Offset: 0

Franklin T. Adams-Watters, Oct 21 2009

nonn

In general, the sequence with g.f. Product_{k>=1} 1/(1-x^k)^Fibonacci(k+z), where z is nonnegative integer, is asymptotic to phi^(n + z/4) / (2 * sqrt(Pi) * 5^(1/8) * n^(3/4)) * exp((phi/10 - 1/2) * Fibonacci(z) - Fibonacci(z+1)/10 + 2 * 5^(-1/4) * phi^(z/2) * sqrt(n) + s), where s = Sum_{k>=2} (Fibonacci(z) + Fibonacci(z+1) * phi^k) / ((phi^(2*k) - phi^k - 1)*k) and phi = A001622 = (1+sqrt(5))/2 is the golden ratio. - Vaclav Kotesovec, Aug 06 2015

			G.f. = 1 + x + 2*x^2 + 4*x^3 + 8*x^4 + 15*x^5 + 30*x^6 + 56*x^7 + 108*x^8 + 203*x^9 + ...

Vaclav Kotesovec, Table of n, a(n) for n = 0..4550
Loic Foissy, The Hopf algebra of Fliess operators and its dual pre-Lie algebra, 2013.
W. S. Gray, K. Ebrahimi-Fard, Affine SISO Feedback Transformation Group and Its Faa di Bruno Hopf Algebra, arXiv:1411.0222 [math.OC], 2014.
Vaclav Kotesovec, Asymptotics of the Euler transform of Fibonacci numbers, arXiv:1508.01796 [math.CO], Aug 07 2015
Vaclav Kotesovec, Asymptotics of sequence A034691

Cf. A000045, A034691, A109509, A200544, A260787, A261031, A261050, A260916, row sums of A337009.

F:= proc(n) option remember; (<<1|1>, <1|0>>^n)[1, 2] end:
a:= proc(n) option remember; `if`(n=0, 1, add(add(d*
      F(d), d=numtheory[divisors](j))*a(n-j), j=1..n)/n)
    end:
seq(a(n), n=0..40);  # Alois P. Heinz, Jan 12 2017

CoefficientList[Series[Product[1/(1-x^k)^Fibonacci[k], {k, 1, 40}], {x, 0, 40}], x] (* Vaclav Kotesovec, Aug 05 2015 *)

ET(v)=Vec(prod(k=1,#v,1/(1-x^k+x*O(x^#v))^v[k]))
ET(vector(40,n,fibonacci(n)))

def EulerTransform(a):
    @cached_function
    def b(n):
        if n == 0: return 1
        s = sum(sum(d * a(d) for d in divisors(j)) * b(n-j) for j in (1..n))
        return s//n
    return b
a = BinaryRecurrenceSequence(1, 1)
b = EulerTransform(a)
print([b(n) for n in range(36)]) # Peter Luschny, Nov 11 2020

G.f.: Product_{k>0} 1/(1 - x^k)^Fibonacci(k).
a(n) ~ phi^n / (2 * sqrt(Pi) * 5^(1/8) * n^(3/4)) * exp(-1/10 + 2*5^(-1/4)*sqrt(n) + s), where s = Sum_{k>=2} phi^k / ((phi^(2*k) - phi^k - 1)*k) = 0.600476601392575912969719494850393576083765123939643511355547131467... and phi = A001622 = (1+sqrt(5))/2 is the golden ratio. - Vaclav Kotesovec, Aug 06 2015
G.f.: exp(Sum_{k>=1} x^k/(k*(1 - x^k - x^(2*k)))). - Ilya Gutkovskiy, May 29 2018

First formula corrected by Vaclav Kotesovec, Aug 05 2015

A261050 Expansion of Product_{k>=1} (1+x^k)^(Fibonacci(k)).

Original entry on oeis.org

1, 1, 1, 3, 5, 10, 19, 36, 67, 127, 236, 438, 811, 1496, 2750, 5046, 9224, 16827, 30630, 55623, 100803, 182342, 329205, 593326, 1067591, 1917885, 3440207, 6162004, 11021921, 19688757, 35126020, 62590629, 111398910, 198044551, 351700332, 623918086, 1105715149

Offset: 0

Vaclav Kotesovec, Aug 08 2015

nonn

Vaclav Kotesovec, Table of n, a(n) for n = 0..1000
Vaclav Kotesovec, Asymptotics of the Euler transform of Fibonacci numbers, arXiv:1508.01796 [math.CO], Aug 07 2015

Cf. A000045, A166861, A261051, A026007, A027998, A248882, A102866, A256142, A260916.

f:= proc(n) option remember; (<<1|1>, <1|0>>^n)[1, 2] end:
b:= proc(n, i) option remember; `if`(n=0, 1, `if`(i<1, 0,
       add(binomial(f(i), j)*b(n-i*j, i-1), j=0..n/i)))
    end:
a:= n-> b(n$2):
seq(a(n), n=0..50);  # Alois P. Heinz, Aug 08 2015

nmax=40; CoefficientList[Series[Product[(1+x^k)^Fibonacci[k],{k,1,nmax}],{x,0,nmax}],x]

a(n) ~ phi^n / (2 * sqrt(Pi) * 5^(1/8) * n^(3/4)) * exp(-1/10 + 2*5^(-1/4)*sqrt(n) + s), where s = Sum_{k>=2} (-1)^(k+1) * phi^k / ((phi^(2*k) - phi^k - 1)*k) = -0.3237251774053525012502809827680337358578568068831886835557918847... and phi = A001622 = (1+sqrt(5))/2 is the golden ratio.

G.f.: exp(Sum_{k>=1} (-1)^(k+1)*x^k/(k*(1 - x^k - x^(2*k)))). - Ilya Gutkovskiy, May 29 2018

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

Original entry on oeis.org

1, 4, 16, 60, 208, 692, 2224, 6940, 21152, 63188, 185488, 536268, 1529648, 4310804, 12017264, 33171916, 90745472, 246201412, 662897232, 1772295020, 4707336848, 12426673188, 32617079280, 85152717404, 221183486496, 571784014244, 1471463190032, 3770577250716

Offset: 0

Vaclav Kotesovec, Aug 23 2015

nonn

Convolution of A034899 and A102866.

Vaclav Kotesovec, Table of n, a(n) for n = 0..1000
Vaclav Kotesovec, Asymptotics of the Euler transform of Fibonacci numbers, arXiv:1508.01796 [math.CO]
Vaclav Kotesovec, A method of finding the asymptotics of q-series based on the convolution of generating functions, arXiv:1509.08708 [math.CO], Sep 30 2015, p. 27.

Cf. A156616, A261520, A260916, A001934, A015128.

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

a(n) ~ 2^n * exp(2*sqrt(2*n) - 1 + c) / (sqrt(Pi) * 2^(3/4) * n^(3/4)), where c = 2 * Sum_{j>=1} 1/((2*j+1)*(2^(2*j)-1)) = 0.2545212486386431009939814261118792033...

A261520 Expansion of Product_{k>=1} ((1+x^k)/(1-x^k))^(3^k).

Original entry on oeis.org

1, 6, 36, 200, 1038, 5160, 24776, 115632, 527172, 2355998, 10349448, 44783064, 191211512, 806737800, 3367294320, 13918479872, 57020736942, 231697484304, 934399998412, 3742041461976, 14888854356840, 58881590423856, 231542984619720, 905666813058384

Offset: 0

Vaclav Kotesovec, Aug 23 2015

nonn

Convolution of A144067 and A256142.

In general, for m > 1, if g.f. = Product_{k>=1} ((1+x^k)/(1-x^k))^(m^k), then a(n) ~ m^n * exp(2*sqrt(2*n) - 1 + c) / (sqrt(Pi) * 2^(3/4) * n^(3/4)), where c = 2 * Sum_{j>=1} 1/((2*j+1)*(m^(2*j)-1)).

Vaclav Kotesovec, Table of n, a(n) for n = 0..1000
Vaclav Kotesovec, Asymptotics of the Euler transform of Fibonacci numbers, arXiv:1508.01796 [math.CO]
Vaclav Kotesovec, A method of finding the asymptotics of q-series based on the convolution of generating functions, arXiv:1509.08708 [math.CO], Sep 30 2015, p. 27.

Cf. A156616, A261519, A260916, A001934, A015128.

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

a(n) ~ 3^n * exp(2*sqrt(2*n) - 1 + c) / (sqrt(Pi) * 2^(3/4) * n^(3/4)), where c = 2 * Sum_{j>=1} 1/((2*j+1)*(3^(2*j)-1)) = 0.0887630729103166089354170592729856346...

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

Original entry on oeis.org

1, 2, 8, 26, 76, 216, 590, 1554, 3988, 9988, 24464, 58794, 138866, 322808, 739658, 1672372, 3734848, 8245956, 18012114, 38952586, 83448832, 177194716, 373111970, 779430870, 1615995262, 3326484686, 6800794428, 13813260736, 27881653590, 55942340000, 111601021856

Offset: 0

Ilya Gutkovskiy, Apr 03 2018

nonn

Convolution of the sequences A000294 and A028377.

N. J. A. Sloane, Transforms

Cf. A000217, A000294, A015128, A028377, A156616, A206622, A206623, A206624, A260916, A261386, A261452, A261519, A261520, A301554, A301555.

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

G.f.: Product_{k>=1} ((1 + x^k)/(1 - x^k))^A000217(k).
a(n) ~ exp(2*Pi*n^(3/4)/3 + 7*Zeta(3)*sqrt(n) / (2*Pi^2) - 49*Zeta(3)^2 * n^(1/4) / (4*Pi^5) + 22411 * Zeta(3)^3 / (392*Pi^8) - Zeta(3)/(8*Pi^2) + 1/24) * Pi^(1/24) / (sqrt(A) * 2^(25/12) * n^(61/96)), where A is the Glaisher-Kinkelin constant A074962. - Vaclav Kotesovec, Apr 08 2018
G.f.: A(x) = exp( 2*Sum_{n >= 0} x^(2*n+1)/((2*n+1)*(1 - x^(2*n+1))^3) ). Cf. A000122 and A156616. - Peter Bala, Dec 23 2021

A302238 Expansion of Product_{k>=1} ((1 + x^k)/(1 - x^k))^prime(k).

Original entry on oeis.org

1, 4, 14, 46, 136, 382, 1022, 2626, 6530, 15784, 37218, 85842, 194146, 431358, 943038, 2031454, 4316884, 9058662, 18787730, 38542526, 78264298, 157403290, 313712482, 619919350, 1215125262, 2363570168, 4563951858, 8751621598, 16670498062, 31553539214, 59361428202

Offset: 0

Ilya Gutkovskiy, Apr 03 2018

nonn

Convolution of the sequences A030009 and A061152.

N. J. A. Sloane, Transforms

Cf. A000040, A015128, A030009, A061152, A156616, A206622, A206623, A206624, A260916, A261386, A261452, A261519, A261520, A301554, A301555.

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

G.f.: Product_{k>=1} ((1 + x^k)/(1 - x^k))^A000040(k).

A302239 Expansion of Product_{k>=1} ((1 + x^k)/(1 - x^k))^p(k), where p(k) = number of partitions of k (A000041).

Original entry on oeis.org

1, 2, 6, 16, 40, 96, 226, 512, 1140, 2488, 5336, 11270, 23494, 48356, 98438, 198338, 395846, 783136, 1536800, 2992818, 5786952, 11114950, 21213906, 40247696, 75928804, 142475644, 265985628, 494155176, 913802164, 1682338192, 3084101744, 5630853218, 10240484332, 18553818210

Offset: 0

Ilya Gutkovskiy, Apr 03 2018

nonn

Convolution of the sequences A001970 and A261049.

N. J. A. Sloane, Transforms

Cf. A000041, A001970, A015128, A156616, A206622, A206623, A206624, A260916, A261049, A261386, A261452, A261519, A261520, A301554, A301555, A302237, A302238.

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

G.f.: Product_{k>=1} ((1 + x^k)/(1 - x^k))^A000041(k).

cp's OEIS Frontend

A166861 Euler transform of Fibonacci numbers.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

PARI

SageMath

Formula

Extensions

A261050 Expansion of Product_{k>=1} (1+x^k)^(Fibonacci(k)).

Views

Author

Keywords

Links

Crossrefs

Programs

Maple

Mathematica

Formula

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

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Formula

A261520 Expansion of Product_{k>=1} ((1+x^k)/(1-x^k))^(3^k).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Formula

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

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Formula

A302238 Expansion of Product_{k>=1} ((1 + x^k)/(1 - x^k))^prime(k).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Formula

A302239 Expansion of Product_{k>=1} ((1 + x^k)/(1 - x^k))^p(k), where p(k) = number of partitions of k (A000041).

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Formula