A270922
Coefficient of x^n in Product_{k>=1} (1 + x^k)^(k*n).
Original entry on oeis.org
1, 1, 5, 28, 141, 751, 4064, 22198, 122381, 679375, 3792155, 21263331, 119679000, 675763232, 3826165838, 21715370653, 123502583565, 703694143160, 4016079632039, 22953901314649, 131366012754691, 752709483123304, 4317601694413683, 24790635783551008
Offset: 0
-
Table[SeriesCoefficient[Product[(1+x^k)^(k*n), {k, 1, n}], {x, 0, n}], {n, 0, 25}]
A380290
a(n) = [x^n] G(x)^n, where G(x) = Product_{k >= 1} 1/(1 - x^k)^(k^2) is the g.f. of A023871.
Original entry on oeis.org
1, 1, 11, 73, 539, 3976, 30107, 229811, 1771803, 13749742, 107305836, 841211966, 6619647419, 52258136399, 413682035393, 3282569032273, 26101575743771, 207930807629248, 1659134361686186, 13258065574274885, 106084302933126364, 849845499077000534, 6815530442695480418, 54712839001004065090
Offset: 0
Examples of supercongruences:
a(7) - a(1) = 229811 - 1 = 2*5*(7^3)*67 == 0 (mod 7^3)
a(3*7) - a(3) = 849845499077000534 - 73 = (7^3)*29243*84727410689 == 0 (mod 7^3)
a(19) - a(1) = 13258065574274885 - 1 = (2^2)*11*(19^3)*29*26723*56687 == 0 (mod 19^3)
- R. P. Stanley. Enumerative combinatorics. Vol. 2, volume 62 of Cambridge Studies in Advanced Mathematics. Cambridge University Press, Cambridge, 1999.
-
with(numtheory):
G(x) := series(exp(add(sigma[3](k)*x^k/k, k = 1..23)),x,24):
seq(coeftayl(G(x)^n, x = 0, n), n = 0..23);
-
Table[SeriesCoefficient[Product[1/(1 - x^k)^(n*k^2), {k, 1, n}], {x, 0, n}], {n, 0, 25}] (* Vaclav Kotesovec, Jul 30 2025 *)
(* or *)
Table[SeriesCoefficient[Exp[n*Sum[DivisorSigma[3, k]*x^k/k, {k, 1, n}]], {x, 0, n}], {n, 0, 25}] (* Vaclav Kotesovec, Jul 30 2025 *)
A386729
a(n) = [x^n] G(x)^n, where G(x) = Product_{k >= 1} (1 + x^k)^(k^3) is the g.f. of A248882.
Original entry on oeis.org
1, 1, 17, 154, 1377, 13276, 127862, 1249746, 12321121, 122287798, 1220492192, 12235940113, 123133325382, 1243080020352, 12583773308102, 127688996851804, 1298370095026017, 13226355435367992, 134955405683954234, 1379032238329708409, 14110075394718902752, 144544237021110644340
Offset: 0
-
Table[SeriesCoefficient[Product[(1+x^k)^(n*k^3), {k, 1, n}], {x, 0, n}], {n, 0, 25}]
Table[SeriesCoefficient[Exp[n*Sum[Sum[(-1)^(k/d + 1)*d^4, {d, Divisors[k]}]*x^k/k, {k, 1, n}]], {x, 0, n}], {n, 0, 25}]
Showing 1-3 of 3 results.
Comments