Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                

Revision History for A092077

(Bold, blue-underlined text is an addition; faded, red-underlined text is a deletion.)

Showing entries 1-10 | older changes
Generalized Stirling2 array (8,2).
(history; published version)
#18 by Andrew Howroyd at Fri Feb 28 10:22:21 EST 2020
STATUS

reviewed

approved

#17 by Joerg Arndt at Fri Feb 28 09:51:43 EST 2020
STATUS

proposed

reviewed

#16 by Michel Marcus at Fri Feb 28 09:39:42 EST 2020
STATUS

editing

proposed

#15 by Michel Marcus at Fri Feb 28 09:39:35 EST 2020
LINKS

W. Wolfdieter Lang, <a href="/A092077/a092077.txt">First 6 rows</a>.

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).

#14 by Michel Marcus at Fri Feb 28 09:38:34 EST 2020
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.

LINKS

P. Blasiak, K. A. Penson and A. I. Solomon, <a href="https://arxiv.org/abs/quant-ph/0402027">The general boson normal ordering problem</a>, arXiv:quant-ph/0402027, 2004.

M. Schork, <a href="http://dx.doi.org/10.1088/0305-4470/36/16/314">On the combinatorics of normal ordering bosonic operators and deforming it</a>, J. Phys. A 36 (2003) 4651-4665.

STATUS

approved

editing

#13 by Alois P. Heinz at Fri Feb 28 09:38:04 EST 2020
STATUS

proposed

approved

#12 by Jean-François Alcover at Fri Feb 28 09:35:52 EST 2020
STATUS

editing

proposed

#11 by Jean-François Alcover at Fri Feb 28 09:31:32 EST 2020
DATA

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

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 *)

STATUS

approved

editing

Discussion
Fri Feb 28
09:35
Jean-François Alcover: Completed last row of data (in spite of kw tabf, but row lengths 1,3,5,7,9,11,... are no fancy)
#10 by Wolfdieter Lang at Wed Aug 28 17:49:57 EDT 2019
STATUS

editing

approved

#9 by Wolfdieter Lang at Wed Aug 28 17:49:54 EDT 2019
LINKS

W. Lang, <a href="/LANGCHANGE/A092077/a092077.texttxt">First 6 rows</a>.

STATUS

approved

editing