A082558 -id:A082558 - cp's OEIS frontend

A144064 Square array A(n,k), n>=0, k>=0, read by antidiagonals, where column k is Euler transform of (j->k).

1, 1, 0, 1, 1, 0, 1, 2, 2, 0, 1, 3, 5, 3, 0, 1, 4, 9, 10, 5, 0, 1, 5, 14, 22, 20, 7, 0, 1, 6, 20, 40, 51, 36, 11, 0, 1, 7, 27, 65, 105, 108, 65, 15, 0, 1, 8, 35, 98, 190, 252, 221, 110, 22, 0, 1, 9, 44, 140, 315, 506, 574, 429, 185, 30, 0, 1, 10, 54, 192, 490, 918, 1265, 1240, 810, 300, 42, 0

Offset: 0

Alois P. Heinz, Sep 09 2008

A(n,k) is also the number of partitions of n into parts of k kinds.
In general, column k > 0 is asymptotic to k^((k+1)/4) * exp(Pi*sqrt(2*k*n/3)) / (2^((3*k+5)/4) * 3^((k+1)/4) * n^((k+3)/4)) * (1 - (Pi*k^(3/2)/(24*sqrt(6)) + sqrt(3)*(k+1)*(k+3)/(8*Pi*sqrt(2*k))) / sqrt(n)). - Vaclav Kotesovec, Feb 28 2015, extended Jan 16 2017
When k is a prime power greater than 1, A(n,k) is the number of conjugacy classes of n X n matrices over a field with k elements that contain an upper-triangular matrix. - Geoffrey Critzer, Nov 11 2022

			Square array begins:
  1,   1,   1,   1,   1,   1, ...
  0,   1,   2,   3,   4,   5, ...
  0,   2,   5,   9,  14,  20, ...
  0,   3,  10,  22,  40,  65, ...
  0,   5,  20,  51, 105, 190, ...
  0,   7,  36, 108, 252, 506, ...

Alois P. Heinz, Antidiagonals n = 0..140, flattened
G. E. Bergum and V. E. Hoggatt, Jr., Numerator polynomial coefficient array for the convolved Fibonacci sequence, Fib. Quart., 14 (1976), 43-44. (Annotated scanned copy)
G. E. Bergum and V. E. Hoggatt, Jr., Numerator polynomial coefficient array for the convolved Fibonacci sequence, Fib. Quart., 14 (1976), 43-48. See Table 1.
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. 8.
N. J. A. Sloane, Transforms
Index entries for expansions of Product_{k >= 1} (1-x^k)^m

Columns k=0-24 give: A000007, A000041, A000712, A000716, A023003, A023004, A023005, A023006, A023007, A023008, A023009, A023010, A005758, A023011, A023012, A023013, A023014, A023015, A023016, A023017, A023018, A023019, A023020, A023021, A006922.
Cf. A082556 (k=30), A082557 (k=32), A082558 (k=48), A082559 (k=64).
Rows n=0-4 give: A000012, A001477, A000096, A006503, A006504.
Main diagonal gives A008485.
Antidiagonal sums give A067687.
Cf. A060642, A122768, A246935, A255961, A261718.

# DedekindEta is defined in A000594.
A144064Column(k, len) = DedekindEta(len, -k)
for n in 0:8 A144064Column(n, 6) |> println end # Peter Luschny, Mar 10 2018

with(numtheory): etr:= proc(p) local b; b:= proc(n) option remember; `if`(n=0, 1, add(add(d*p(d), d=divisors(j)) *b(n-j), j=1..n)/n) end end: A:= (n,k)-> etr(j->k)(n): seq(seq(A(n, d-n), n=0..d), d=0..14);

a[0, ] = 1; a[, 0] = 0; a[n_, k_] := SeriesCoefficient[ Product[1/(1 - x^j)^k, {j, 1, n}], {x, 0, n}]; Table[a[n - k, k], {n, 0, 11}, {k, n, 0, -1}] // Flatten (* Jean-François Alcover, Dec 06 2013 *)
etr[p_] := Module[{b}, b[n_] := b[n] = If[n==0, 1, Sum[Sum[d*p[d], {d, Divisors[j]} ]*b[n-j], {j, 1, n}]/n]; b]; A[n_, k_] := etr[k&][n]; Table[A[n, d-n], {d, 0, 14}, {n, 0, d}] // Flatten (* Jean-François Alcover, Mar 30 2015, after Alois P. Heinz *)

Mat(apply( {A144064_col(k,nMax=9)=Col(1/eta('x+O('x^nMax))^k,nMax)}, [0..9])) \\ M. F. Hasler, Aug 04 2024

G.f. of column k: Product_{j>=1} 1/(1-x^j)^k.

A(n,k) = Sum_{i=0..k} binomial(k,i) * A060642(n,k-i):

A319134 Expansion of -((25E_4^4 - 49E_6^2E4) + 48E_6E_4^2E_2 + (-49E_4^3 + 25E_6^2)E_2^2)/(3657830400delta^2) where E_2, E_4, E_6 are the Eisenstein series shown in A006352, A004009, A013973, respectively and delta is A000594.

Original entry on oeis.org

1, 86, 3750, 109672, 2419462, 43021728, 643548464, 8343640624, 95835049605, 991606081332, 9364586280842, 81571540591968, 661034448807902, 5019357866562208, 35927279225314344, 243657157464337888, 1572638456431119570, 9696997279843999470, 57313953586222481126, 325672739267123628976

Offset: 1

Seiichi Manyama, Sep 11 2018

nonn

			((25*E_4^4 - 49*E_6^2*E4) + 48*E_6*E_4^2*E_2 + (-49*E_4^3 + 25*E_6^2)*E_2^2)/(delta^2) =  - 3657830400*q - 314573414400*q^2 - 13716864000000*q^3 - 401161575628800*q^4 - ... .

Seiichi Manyama, Table of n, a(n) for n = 1..5000
H. Cohn, A. Kumar, S. Miller, D. Radchenko, M. Viazovska, The sphere packing problem in dimension 24, Annals of Mathematics, 185 (3) (2017), 1017-1033.
Wikipedia, Sphere packing

Cf. A000594, A006352 (E_2), A004009 (E_4), A013973 (E_6), A082558, A281373,

About the numerator: A282012 (E_4^4), A282287 (E_6^2*E_4), A282596 (E_6*E_4^2*E_2), A008411 (E_4^3), A280869 (E_6^2), A281374 (E_2^2).

nmax = 25; E2[x_] = 1 - 24*Sum[k*x^k/(1 - x^k), {k, 1, nmax + 1}] + O[x]^(nmax + 1); E4[x_] = 1 + 240*Sum[k^3*x^k/(1 - x^k), {k, 1, nmax + 1}] + O[x]^(nmax + 1); E6[x_] = 1 - 504*Sum[k^5*x^k/(1 - x^k), {k, 1, nmax + 1}] + O[x]^(nmax + 1); Rest[CoefficientList[Series[-((25*E4[x]^4 - 49*E6[x]^2*E4[x]) + 48*E6[x]*E4[x]^2*E2[x] + (-49*E4[x]^3 + 25*E6[x]^2)* E2[x]^2) / (3657830400 * x^2 * QPochhammer[x]^48), {x, 0, nmax}], x]] (* Vaclav Kotesovec, Sep 12 2018 *)

a(n) ~ exp(4*Pi*sqrt(2*n)) / (132300 * 2^(1/4) * Pi^2 * n^(23/4)). - Vaclav Kotesovec, Sep 12 2018

A010839 Expansion of Product_{k >= 1} (1-x^k)^48.

Original entry on oeis.org

1, -48, 1080, -15040, 143820, -985824, 4857920, -16295040, 28412910, 38671600, -424520544, 1268350272, -1211937160, -4306546080, 18293091840, -23522231424, -26299018683, 137218594320, -150999182320, -134713340160

Offset: 0

N. J. A. Sloane

sign

			1 - 48*x + 1080*x^2 - 15040*x^3 + 143820*x^4 - 985824*x^5 + 4857920*x^6 - 16295040*x^7 + ...

Morris Newman, A table of the coefficients of the powers of eta(tau), Nederl. Akad. Wetensch. Proc. Ser. A. 59 = Indag. Math. 18 (1956), 204-216.

Seiichi Manyama, Table of n, a(n) for n = 0..10000
M. Boylan, Exceptional congruences for the coefficients of certain eta-product newforms, J. Number Theory 98 (2003), no. 2, 377-389.
Index entries for expansions of Product_{k >= 1} (1-x^k)^m

Column k=48 of A286354.

Cf. A000203, A082558, A126581, A282330 (E_8^3), A282332 (E_6*E_8*E_10 = E4*E_10^2), A290009, A290010.

Let b(q) be the determinant of the 3 X 3 Hankel matrix [E_4, E_6, E_8 ; E_6, E_8, E_10 ; E_8, E_10, E_12]. G.f. is -691*b(q)/(q^2*1728^2*250). - Seiichi Manyama, Jul 17 2017
a(n) = (A290010(n+2) - A290009(n+2) + 691*(A282330(n+2) - A282332(n+2)))/(1728^2*250). - Seiichi Manyama, Jul 19 2017
a(0) = 1, a(n) = -(48/n) * Sum_{k=1..n} A000203(k)*a(n-k) for n > 0. - Seiichi Manyama, Aug 13 2023

cp's OEIS Frontend

A144064 Square array A(n,k), n>=0, k>=0, read by antidiagonals, where column k is Euler transform of (j->k).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Julia

Maple

Mathematica

PARI

Formula

A319134 Expansion of -((25E_4^4 - 49E_6^2E4) + 48E_6E_4^2E_2 + (-49E_4^3 + 25E_6^2)E_2^2)/(3657830400delta^2) where E_2, E_4, E_6 are the Eisenstein series shown in A006352, A004009, A013973, respectively and delta is A000594.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A010839 Expansion of Product_{k >= 1} (1-x^k)^48.

Views

Author

Keywords

Examples

References

Links

Crossrefs

Formula

cp's OEIS Frontend

A144064 Square array A(n,k), n>=0, k>=0, read by antidiagonals, where column k is Euler transform of (j->k).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Julia

Maple

Mathematica

PARI

Formula

A319134 Expansion of -((25*E_4^4 - 49*E_6^2*E4) + 48*E_6*E_4^2*E_2 + (-49*E_4^3 + 25*E_6^2)*E_2^2)/(3657830400*delta^2) where E_2, E_4, E_6 are the Eisenstein series shown in A006352, A004009, A013973, respectively and delta is A000594.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A010839 Expansion of Product_{k >= 1} (1-x^k)^48.

Views

Author

Keywords

Examples

References

Links

Crossrefs

Formula

A319134 Expansion of -((25E_4^4 - 49E_6^2E4) + 48E_6E_4^2E_2 + (-49E_4^3 + 25E_6^2)E_2^2)/(3657830400delta^2) where E_2, E_4, E_6 are the Eisenstein series shown in A006352, A004009, A013973, respectively and delta is A000594.