A279216
Expansion of Product_{k>=1} 1/(1 - x^k)^(k^2*(k+1)/2).
Original entry on oeis.org
1, 1, 7, 25, 86, 269, 862, 2606, 7812, 22704, 64989, 182356, 504414, 1373694, 3693367, 9804435, 25733084, 66808578, 171719539, 437183839, 1103143657, 2760037810, 6850400668, 16873338215, 41260373472, 100196920196, 241712863504, 579416535973, 1380517695672, 3270075208145, 7702580246941
Offset: 0
- Vaclav Kotesovec, Table of n, a(n) for n = 0..1000
- M. Bernstein and N. J. A. Sloane, Some canonical sequences of integers, Linear Alg. Applications, 226-228 (1995), 57-72; erratum 320 (2000), 210. [Link to arXiv version]
- M. Bernstein and N. J. A. Sloane, Some canonical sequences of integers, Linear Alg. Applications, 226-228 (1995), 57-72; erratum 320 (2000), 210. [Link to Lin. Alg. Applic. version together with omitted figures]
- N. J. A. Sloane, Transforms
- Eric Weisstein's World of Mathematics, Pentagonal Pyramidal Number
- Index to sequences related to pyramidal numbers
-
nmax=30; CoefficientList[Series[Product[1/(1 - x^k)^(k^2 (k + 1)/2), {k, 1, nmax}], {x, 0, nmax}], x]
A279217
Expansion of Product_{k>=1} 1/(1 - x^k)^(k*(k+1)*(4*k-1)/6).
Original entry on oeis.org
1, 1, 8, 30, 108, 357, 1205, 3838, 12083, 36896, 110828, 326281, 946086, 2700026, 7602642, 21128513, 58028309, 157588912, 423534324, 1127102360, 2971764946, 7766890826, 20131080168, 51766513279, 132117237595, 334770353022, 842462217948, 2106183375971, 5232414548275, 12920429411759, 31719180847831
Offset: 0
- Vaclav Kotesovec, Table of n, a(n) for n = 0..1000
- M. Bernstein and N. J. A. Sloane, Some canonical sequences of integers, Linear Alg. Applications, 226-228 (1995), 57-72; erratum 320 (2000), 210. [Link to arXiv version]
- M. Bernstein and N. J. A. Sloane, Some canonical sequences of integers, Linear Alg. Applications, 226-228 (1995), 57-72; erratum 320 (2000), 210. [Link to Lin. Alg. Applic. version together with omitted figures]
- N. J. A. Sloane, Transforms
- Eric Weisstein's World of Mathematics, Hexagonal Pyramidal Number
- Index to sequences related to pyramidal numbers
-
nmax=30; CoefficientList[Series[Product[1/(1 - x^k)^(k (k + 1)(4 k - 1)/6), {k, 1, nmax}], {x, 0, nmax}], x]
A279218
Expansion of Product_{k>=1} 1/(1 - x^k)^(k*(k+1)*(5*k-2)/6).
Original entry on oeis.org
1, 1, 9, 35, 131, 454, 1601, 5325, 17467, 55588, 173858, 532809, 1607056, 4769263, 13957660, 40302923, 114962909, 324157109, 904247056, 2496917319, 6829241131, 18510038697, 49741367504, 132582175873, 350655140642, 920568519505, 2399692063845, 6213105691838, 15982216140168, 40855658807127, 103814659491641
Offset: 0
- Vaclav Kotesovec, Table of n, a(n) for n = 0..1000
- M. Bernstein and N. J. A. Sloane, Some canonical sequences of integers, Linear Alg. Applications, 226-228 (1995), 57-72; erratum 320 (2000), 210. [Link to arXiv version]
- M. Bernstein and N. J. A. Sloane, Some canonical sequences of integers, Linear Alg. Applications, 226-228 (1995), 57-72; erratum 320 (2000), 210. [Link to Lin. Alg. Applic. version together with omitted figures]
- N. J. A. Sloane, Transforms
- Eric Weisstein's World of Mathematics, Heptagonal Pyramidal Number
- Index to sequences related to pyramidal numbers
-
nmax=30; CoefficientList[Series[Product[1/(1 - x^k)^(k (k + 1) (5 k - 2)/6), {k, 1, nmax}], {x, 0, nmax}], x]
A279219
Expansion of Product_{k>=1} 1/(1 - x^k)^(k*(k+1)*(2*k-1)/2).
Original entry on oeis.org
1, 1, 10, 40, 155, 560, 2051, 7080, 24064, 79370, 257067, 815593, 2545201, 7812699, 23639459, 70551216, 207932549, 605611061, 1744513262, 4973116444, 14038641287, 39263308551, 108849552289, 299248060986, 816159923366, 2209102273109, 5936069692320, 15840122529455, 41987363787469, 110584436073149
Offset: 0
- Vaclav Kotesovec, Table of n, a(n) for n = 0..1000
- M. Bernstein and N. J. A. Sloane, Some canonical sequences of integers, Linear Alg. Applications, 226-228 (1995), 57-72; erratum 320 (2000), 210. [Link to arXiv version]
- M. Bernstein and N. J. A. Sloane, Some canonical sequences of integers, Linear Alg. Applications, 226-228 (1995), 57-72; erratum 320 (2000), 210. [Link to Lin. Alg. Applic. version together with omitted figures]
- N. J. A. Sloane, Transforms
- Index to sequences related to pyramidal numbers
-
nmax=29; CoefficientList[Series[Product[1/(1 - x^k)^(k (k + 1) (2 k - 1)/2), {k, 1, nmax}], {x, 0, nmax}], x]
A305653
Expansion of Product_{k>=1} 1/(1 - x^k)^((k+1)*binomial(k+2,3)/2).
Original entry on oeis.org
1, 1, 7, 27, 98, 323, 1085, 3471, 10998, 33874, 102737, 305849, 897899, 2597822, 7423408, 20957775, 58524868, 161741013, 442705279, 1200718351, 3228796864, 8611973548, 22793714865, 59887897679, 156252738062, 404964879419, 1042884107691, 2669317020743, 6792321636929
Offset: 0
-
a:= proc(n) option remember; `if`(n=0, 1, add(a(n-j)*add(d^2*
(d+2)*(d+1)^2/12, d=numtheory[divisors](j)), j=1..n)/n)
end:
seq(a(n), n=0..35); # Alois P. Heinz, Jun 07 2018
-
nmax = 28; CoefficientList[Series[Product[1/(1 - x^k)^((k + 1) Binomial[k + 2, 3]/2), {k, 1, nmax}], {x, 0, nmax}], x]
nmax = 28; CoefficientList[Series[Exp[Sum[x^k (1 + x^k)/(k (1 - x^k)^5), {k, 1, nmax}]], {x, 0, nmax}], x]
a[n_] := a[n] = If[n == 0, 1, Sum[Sum[d^2 (d + 1)^2 (d + 2)/12, {d, Divisors[k]}] a[n - k], {k, 1, n}]/n]; Table[a[n], {n, 0, 28}]
A287090
Expansion of Product_{k>=1} 1/(1 - x^k)^(k^2*(k+1)^2/4).
Original entry on oeis.org
1, 1, 10, 46, 191, 740, 2912, 10941, 40345, 144703, 509693, 1761738, 5993434, 20076668, 66329914, 216307961, 696990583, 2220665661, 7000973556, 21853019072, 67575353580, 207111103623, 629440843762, 1897670845715, 5677604053474, 16863081962184, 49736388996376, 145714874857754
Offset: 0
- M. Bernstein and N. J. A. Sloane, Some canonical sequences of integers, Linear Alg. Applications, 226-228 (1995), 57-72; erratum 320 (2000), 210. [Link to arXiv version]
- M. Bernstein and N. J. A. Sloane, Some canonical sequences of integers, Linear Alg. Applications, 226-228 (1995), 57-72; erratum 320 (2000), 210. [Link to Lin. Alg. Applic. version together with omitted figures]
- N. J. A. Sloane, Transforms
-
nmax = 27; CoefficientList[Series[Product[1/(1 - x^k)^(k^2 (k + 1)^2/4), {k, 1, nmax}], {x, 0, nmax}], x]
A302449
Expansion of Product_{k>=1} 1/(1 - x^k)^(k*(4*k^2-1)/3).
Original entry on oeis.org
1, 1, 11, 46, 185, 700, 2676, 9646, 34166, 117500, 396506, 1310527, 4258313, 13607309, 42846151, 133039791, 407833188, 1235202869, 3699140386, 10960888382, 32154531807, 93437164720, 269087234273, 768340525743, 2176098269286, 6115444177489, 17058887661133
Offset: 0
- M. Bernstein and N. J. A. Sloane, Some canonical sequences of integers, Linear Alg. Applications, 226-228 (1995), 57-72; erratum 320 (2000), 210. [Link to arXiv version]
- M. Bernstein and N. J. A. Sloane, Some canonical sequences of integers, Linear Alg. Applications, 226-228 (1995), 57-72; erratum 320 (2000), 210. [Link to Lin. Alg. Applic. version together with omitted figures]
- N. J. A. Sloane, Transforms
-
nmax = 26; CoefficientList[Series[Product[1/(1 - x^k)^(k (4 k^2 - 1)/3), {k, 1, nmax}], {x, 0, nmax}], x]
a[n_] := a[n] = If[n == 0, 1, Sum[Sum[d^2 (4 d^2 - 1)/3, {d, Divisors[k]}] a[n - k], {k, 1, n}]/n]; Table[a[n], {n, 0, 26}]
A305654
a(n) = [x^n] exp(Sum_{k>=1} x^k*(1 + x^k)/(k*(1 - x^k)^n)).
Original entry on oeis.org
1, 1, 4, 14, 65, 323, 1890, 12002, 83901, 630818, 5081318, 43546333, 395422430, 3788368227, 38151667046, 402516707510, 4436230390977, 50948789415297, 608433141666219, 7540823673023319, 96826154085714992, 1285991546051286085, 17640769457638701839, 249602608552024560609
Offset: 0
-
Table[SeriesCoefficient[Exp[Sum[x^k (1 + x^k)/(k (1 - x^k)^n), {k, 1, n}]], {x, 0, n}], {n, 0, 23}]
Table[SeriesCoefficient[Product[1/(1 - x^k)^(2 Binomial[n + k - 2, n - 1] - Binomial[n + k - 3, n - 2]), {k, 1, n}], {x, 0, n}], {n, 0, 23}]
A318121
a(n) = [x^n] exp(Sum_{k>=1} x^k*(1 + (n - 3)*x^k)/(k*(1 - x^k)^4)).
Original entry on oeis.org
1, 1, 4, 15, 65, 269, 1205, 5325, 24064, 108849, 496790, 2275492, 10470720, 48325984, 223721404, 1038182441, 4828274432, 22497132116, 105001996350, 490816448220, 2297356108318, 10766317435860, 50511178395306, 237217429972191, 1115084064063866, 5246116796164594
Offset: 0
-
Table[SeriesCoefficient[Exp[Sum[x^k (1 + (n - 3) x^k)/(k (1 - x^k)^4), {k, 1, n}]], {x, 0, n}], {n, 0, 25}]
A319757
Expansion of Product_{k>=1} (1 - x^k)^(k*(k+1)*(2*k+1)/6).
Original entry on oeis.org
1, -1, -5, -9, -6, 35, 125, 275, 291, -241, -2111, -5989, -10990, -11660, 6454, 68298, 201859, 400794, 546122, 269907, -1175825, -4890783, -11746437, -20668698, -25146121, -7959643, 63707489, 236244458, 546634684, 956731805, 1220119643, 676723572, -1964409479, -8645307595
Offset: 0
-
a:=series(mul((1-x^k)^(k*(k+1)*(2*k+1)/6),k=1..100),x=0,34): seq(coeff(a,x,n),n=0..33); # Paolo P. Lava, Apr 02 2019
-
nmax = 33; CoefficientList[Series[Product[(1 - x^k)^(k (2 k + 1) (k + 1)/6), {k, 1, nmax}], {x, 0, nmax}], x]
nmax = 33; CoefficientList[Series[Exp[-Sum[x^k (1 + x^k)/(k (1 - x^k)^4), {k, 1, nmax}]], {x, 0, nmax}], x]
a[n_] := a[n] = If[n == 0, 1, -Sum[Sum[d^2 (d + 1) (2 d + 1)/6, {d, Divisors[k]}] a[n - k], {k, 1, n}]/n]; Table[a[n], {n, 0, 33}]
Showing 1-10 of 10 results.
Comments