A369344 -id:A369344 - cp's OEIS frontend

A369496 a(n) = [x^(n(n+1)/2)] Product_{k=1..n} (x^(k(k+1)/2) + 1 + 1/x^(k*(k+1)/2)).

1, 1, 1, 1, 2, 4, 8, 20, 47, 104, 246, 607, 1496, 3751, 9579, 24720, 64327, 168932, 446830, 1188030, 3177198, 8541152, 23063100, 62550085, 170337684, 465564180, 1276779917, 3512617527, 9692054125, 26815357935, 74381739478, 206820705565, 576371104028

Offset: 0

Ilya Gutkovskiy, Jan 24 2024

nonn

Alois P. Heinz, Table of n, a(n) for n = 0..200

Cf. A000217, A316706, A369344, A369434.

b:= proc(n, i) option remember; (m-> `if`(n>m, 0,
     `if`(n=m, 1, b(abs(n-i*(i+1)/2), i-1)+b(n, i-1)+
        b(n+i*(i+1)/2, i-1))))((2+(3+i)*i)*i/6)
    end:
a:= n-> b(n*(n+1)/2, n):
seq(a(n), n=0..32);  # Alois P. Heinz, Jan 24 2024

Table[Coefficient[Product[x^(k (k + 1)/2) + 1 + 1/x^(k (k + 1)/2), {k, 1, n}], x, n (n + 1)/2], {n, 0, 32}]

A369495 a(n) = [x^n] Product_{k=1..n} (x^(k(k+1)/2) + 1 + 1/x^(k(k+1)/2)).

Original entry on oeis.org

1, 1, 1, 2, 3, 5, 11, 25, 56, 129, 313, 748, 1831, 4584, 11581, 29555, 76398, 199191, 522746, 1382158, 3676072, 9828631, 26412174, 71310248, 193346941, 526302232, 1437895915, 3941671019, 10839118898, 29893768219, 82671240995, 229213877639, 637049969282

Offset: 0

Ilya Gutkovskiy, Jan 24 2024

nonn

Cf. A000217, A316706, A351002, A369344, A369433.

b:= proc(n, i) option remember; (m-> `if`(n>m, 0,
     `if`(n=m, 1, b(abs(n-i*(i+1)/2), i-1)+b(n, i-1)+
        b(n+i*(i+1)/2, i-1))))((2+(3+i)*i)*i/6)
    end:
a:= n-> b(n$2):
seq(a(n), n=0..32);  # Alois P. Heinz, Jan 24 2024

Table[Coefficient[Product[x^(k (k + 1)/2) + 1 + 1/x^(k (k + 1)/2), {k, 1, n}], x, n], {n, 0, 32}]

cp's OEIS Frontend

A369496 a(n) = [x^(n(n+1)/2)] Product_{k=1..n} (x^(k(k+1)/2) + 1 + 1/x^(k*(k+1)/2)).

Views

Author

Keywords

Links

Crossrefs

Programs

Maple

Mathematica

A369495 a(n) = [x^n] Product_{k=1..n} (x^(k(k+1)/2) + 1 + 1/x^(k(k+1)/2)).

Views

Author

Keywords

Crossrefs

Programs

Maple

Mathematica

cp's OEIS Frontend

A369496 a(n) = [x^(n*(n+1)/2)] Product_{k=1..n} (x^(k*(k+1)/2) + 1 + 1/x^(k*(k+1)/2)).

Views

Author

Keywords

Links

Crossrefs

Programs

Maple

Mathematica

A369495 a(n) = [x^n] Product_{k=1..n} (x^(k*(k+1)/2) + 1 + 1/x^(k*(k+1)/2)).

Views

Author

Keywords

Crossrefs

Programs

Maple

Mathematica

A369496 a(n) = [x^(n(n+1)/2)] Product_{k=1..n} (x^(k(k+1)/2) + 1 + 1/x^(k*(k+1)/2)).

A369495 a(n) = [x^n] Product_{k=1..n} (x^(k(k+1)/2) + 1 + 1/x^(k(k+1)/2)).