OFFSET
1,1
COMMENTS
LINKS
Robert Delbourgo and David Elliott, Inverse momentum expectation values for hydrogenic systems, J. Math. Phys. 50, 062107 (2009); arXiv:0904.4288 [math-ph], 2009.
EXAMPLE
Triangle begins:
n\k | 0 1 2 3 4 5 6
---------------------------------------------------------------
1 | 32
2 | 256 128
3 | 2144 256 4096
4 | 1024 512 16384 16384
5 | 85088 57088 299008 32768 524288
6 | 1172224 809344 21856256 950272 8388608 2097152
7 | 245600 865792 10231808 557056 15204352 4194304 134217728
...
MATHEMATICA
T[n_, k_] := Numerator[2*Pi*Sum[((-1)^j*n*(k + j + 2)*(n + k +j)!*(k + j)!^2)/((n - k - j - 1)!*(2*k + j + 1)!*j!*Gamma[k + j + 3/2]*Gamma[k + j + 5/2]), {j, 0, n - k - 1}]]
Table[T[n, k], {n, 1, 20}, {k, 0, n - 1}] // Flatten
(* Franck Maminirina Ramaharo, Jan 16 2019 *)
PROG
(Maxima) T(n, k) := num(2*%pi*sum(((-1)^j*n*(k + j + 2)*(n + k + j)!*(k + j)!^2)/((n - k - j - 1)!*(2*k + j + 1)!*j!*gamma(k + j + 3/2)*gamma(k + j + 5/2)), j, 0, n - k - 1))$
create_list(T(n, k), n, 1, 20, k, 0, n - 1);
/* Franck Maminirina Ramaharo, Jan 16 2019 */
CROSSREFS
KEYWORD
AUTHOR
Jonathan Vos Post, Apr 28 2009
EXTENSIONS
Edited and extended by Franck Maminirina Ramaharo, Jan 16 2019
STATUS
approved