A381296 a(n) = denominator( [(x*y*z*u*v)^n] 1/sqrt(1 - (x + y + z + u + v*(x*y*z + x*y*u + x*z*u + y*z*u))) ).

1, 1, 16, 1, 4096, 4096, 16384, 8192, 268435456, 268435456, 4294967296, 1073741824, 274877906944, 274877906944, 2199023255552, 1099511627776, 1152921504606846976, 1152921504606846976, 18446744073709551616, 2305843009213693952, 4722366482869645213696, 4722366482869645213696

Offset

0,3

Links

Table of n, a(n) for n=0..21.

S. Hassani, J.-M. Maillard, and N. Zenine, On the diagonals of rational functions: the minimal number of variables (unabridged version), arXiv:2502.05543 [math-ph], 2025. See p. 44.

Mathematica

a[n_]:=Denominator[SeriesCoefficient[1/Sqrt[1-(x+y+z+u+v(x*y*z+x*y*u+x*z*u+y*z*u))], {x, 0, n}, {y, 0, n}, {z, 0, n}, {u, 0, n}, {v, 0, n}]]; Array[a, 22, 0]

Crossrefs

Cf. A381295 (numerator).

Sequence in context: A223518 A095876 A360062 * A095851 A095881 A040251

Adjacent sequences: A381291 A381292 A381295 * A381297 A381298 A381299

Keyword

nonn,frac,new

Author

Stefano Spezia, Feb 19 2025

Status

approved