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-4 of 4 results.

A091545 First column sequence of the array (7,2)-Stirling2 A091747.

Original entry on oeis.org

1, 42, 5544, 1507968, 696681216, 489070213632, 485157651922944, 646229992361361408, 1112808046846264344576, 2405890997281623512973312, 6380422924790865556405223424, 20366309975932442856045473169408, 77025384328976498881563979526701056, 340606249502734078054275917467072069632
Offset: 1

Views

Author

Wolfdieter Lang, Feb 13 2004

Keywords

Comments

Also sixth column (m=5) sequence of triangle A091543.

Crossrefs

Programs

  • Mathematica
    a[n_] := 5^(2*n) * Pochhammer[1/5, n] * Pochhammer[2/5, n] / 2; Array[a, 15] (* Amiram Eldar, Sep 01 2025 *)

Formula

a(n) = Product_{j=0..n-1} ((5*j+2)*(5*j+1))/2, n>=1. From eq.12 of the Blasiak et al. reference with r=7, s=2, k=1.
a(n) = (5^(2*n))*risefac(1/5, n)*risefac(2/5, n)/2, n>=1, with risefac(x, n) = Pochhammer(x, n).
a(n) = fac5(5*n-3)*fac5(5*n-4)/2, n>=1, with fac5(5*n-4)/2 = A034323(n) and fac5(5*n-3) = A008548(n) (5-factorials).
E.g.f.: (hypergeom([1/5, 2/5], [], 25*x)-1)/2.
a(n) = A091747(n, 2), n>=1.
D-finite with recurrence a(n) - (5*n-3)*(5*n-4)*a(n-1) = 0. - R. J. Mathar, Jul 27 2022
a(n) ~ Pi * (5/e)^(2*n) * n^(2*n-2/5) / (Gamma(1/5) * Gamma(2/5)). - Amiram Eldar, Sep 01 2025
a(n) ~ sqrt(Pi*(1 + sqrt(5))) * 5^(2*n + 1/4) * n^(2*n - 2/5) / (Gamma(1/10) * 2^(7/10) * exp(2*n)). - Vaclav Kotesovec, Sep 01 2025

A091751 Alternating row sums of array A091747 (generalized Stirling2 array (7,2)).

Original entry on oeis.org

1, 29, 2899, 625381, 235735025, 137662456849, 115219635641083, 130892567494940777, 193870813073375001313, 362981045220391075931461, 838251579579056365127865923, 2340586894706172958195272669517, 7772441664087128321443493161452817
Offset: 1

Views

Author

Wolfdieter Lang, Feb 27 2004

Keywords

Comments

The first negative term is the 159 digit number a(43)=-2116278545846...33655549.

Crossrefs

Cf. A091749 (row sums of A091747).

Formula

a(n)=sum(A091747(n, k)*(-1)^k, k=2..2*n), n>=1.

A092077 Generalized Stirling2 array (8,2).

Original entry on oeis.org

1, 56, 16, 1, 10192, 4928, 776, 48, 1, 3872960, 2477440, 575680, 63360, 3536, 96, 1, 2517424000, 1940556800, 572868800, 86163840, 7326880, 364800, 10480, 160, 1, 2497284608000, 2210343116800, 773352966400, 143430604800, 15836206400, 1099612800, 49056960, 1398400, 24520, 240, 1
Offset: 1

Views

Author

Wolfdieter Lang, Feb 27 2004

Keywords

Comments

The sequence of row lengths for this array is [1,3,5,7,9,11,...]=A005408(n-1), n>=1.

Crossrefs

The generalized (k, 2)-Stirling2 arrays are, for k=2, ..., 7: A078739, A078740, A090438, A091534, A091746 and A091747.
Cf. A091546, A091552 (first, resp. second column). A091757 (row sums). A091758 (alternating row sums).

Programs

  • Mathematica
    a[n_, k_] := ((-1)^k/k!) Sum[(-1)^p Binomial[k, p] Product[FactorialPower[ p + 6(j-1), 2], {j, 1, n}], {p, 2, k}];
    Table[a[n, k], {n, 1, 6}, {k, 2, 2n}] // Flatten (* Jean-François Alcover, Feb 28 2020 *)

Formula

a(n, k) = (((-1)^k)/k!)*sum(((-1)^p)*binomial(k, p)*product(fallfac(p+6*(j-1), 2), j=1..n), p=2..k), n>=1, 2<=k<=2*n, else 0. From eq. (12) of the Blasiak et al. reference with r=8, s=2.
Recursion: a(n, k) = sum(binomial(2, p)*fallfac(6*(n-1)+k-p, 2-p)*a(n-1, k-p), p=0..2), n>=2, 2<=k<=2*n, a(1, 2)=1, else 0. Rewritten from eq.(19) of the Schork reference with r=8, s=2. fallfac(n, m) := A008279(n, m) (falling factorials triangle).

A091749 Generalized Bell numbers B_{7,2}.

Original entry on oeis.org

1, 57, 9367, 3039037, 1631142633, 1306299636853, 1458563053824871, 2164056543968020185, 4116264432907357578961, 9762542731516508922640177, 28237035023990471230544779095, 97815632146487780258222172635029
Offset: 1

Views

Author

Wolfdieter Lang, Feb 27 2004

Keywords

References

  • P. Blasiak, K. A. Penson and A. I. Solomon, The general boson normal ordering problem, Phys. Lett. A 309 (2003) 198-205.
  • M. Schork, On the combinatorics of normal ordering bosonic operators and deforming it, J. Phys. A 36 (2003) 4651-4665.

Crossrefs

Cf. A091748 (B_{6, 2}).

Programs

  • Mathematica
    a[n_] := Sum[Product[FactorialPower[k+5*(j-1), 2], {j, 1, n}]/k!, {k, 2, Infinity}]/E; Array[a, 12] (* Jean-François Alcover, Sep 01 2016 *)

Formula

a(n)=sum(A091747(n, k), k=2..2*n)= sum((1/k!)*product(fallfac(k+5*(j-1), 2), j=1..n), k=2..infinity)/exp(1), n>=1. From eq.(9) of the Blasiak et al. reference with r=7, s=2. fallfac(n, m) := A008279(n, m) (falling factorials triangle). a(0) := 1 may be added.
Showing 1-4 of 4 results.