cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-2 of 2 results.

A293299 Square array A(n,k), n >= 0, k >= 0, read by antidiagonals, where column k is the expansion of e.g.f. Product_{i>0} 1/(Sum_{j=0..k} x^(j*i)/j!).

Original entry on oeis.org

1, 1, 0, 1, -1, 0, 1, -1, 0, 0, 1, -1, -1, -6, 0, 1, -1, -1, 0, 24, 0, 1, -1, -1, -1, -6, -120, 0, 1, -1, -1, -1, 2, 30, 720, 0, 1, -1, -1, -1, 1, 10, 270, -5040, 0, 1, -1, -1, -1, 1, 20, 170, 0, 80640, 0, 1, -1, -1, -1, 1, 19, 140, 1050, 2520, -725760, 0, 1, -1
Offset: 0

Views

Author

Seiichi Manyama, Oct 05 2017

Keywords

Examples

			Square array begins:
   1,    1,  1,  1,  1, ...
   0,   -1, -1, -1, -1, ...
   0,    0, -1, -1, -1, ...
   0,   -6,  0, -1, -1, ...
   0,   24, -6,  2,  1, ...
   0, -120, 30, 10, 20, ...
		

Crossrefs

Columns k=0..1 give A000007, A293300.
Rows n=0 gives A000012.
Main diagonal gives A293116.

A293302 E.g.f.: Product_{m>0} 1/(1 - x^m + x^(2*m)/2!).

Original entry on oeis.org

1, 1, 3, 12, 66, 450, 3510, 32760, 335160, 3832920, 48648600, 673596000, 9961736400, 161026866000, 2775402630000, 50713246584000, 987048958896000, 20331148966128000, 440625863806128000, 10057578887708352000, 240218186856167520000, 6010719623406257760000
Offset: 0

Views

Author

Seiichi Manyama, Oct 05 2017

Keywords

Crossrefs

Column k=2 of A293301.
Cf. A003105.

Programs

  • Mathematica
    nmax = 25; CoefficientList[Series[1/Product[1 - x^k + x^(2*k)/2, {k, 1, nmax}], {x, 0, nmax}], x] * Range[0, nmax]! (* Vaclav Kotesovec, Oct 05 2017 *)
  • PARI
    my(x = 'x + O('x^40)); Vec(serlaplace(prod(m=1, 40, 1/(1 - x^m + x^(2*m)/2!)))) \\ Michel Marcus, Oct 05 2017

Formula

a(n) ~ (5*Pi^2/3 - 4*log(2)^2)^(1/4) * n^(n - 1/4) / (4*exp(n - sqrt((5*Pi^2/12 - log(2)^2)*n))). - Vaclav Kotesovec, Oct 07 2024
Showing 1-2 of 2 results.