A130190 Denominators of z-sequence for the Sheffer matrix (triangle) A094816 (coefficients of Poisson-Charlier polynomials).
1, 2, 6, 4, 15, 12, 42, 24, 90, 10, 33, 8, 910, 105, 90, 48, 255, 180, 3990, 420, 6930, 330, 345, 720, 13650, 273, 378, 28, 145, 20, 14322, 2464, 117810, 3570, 7, 24, 1919190, 1729, 2730, 840, 9471, 13860, 99330, 1540, 217350, 4830, 4935, 10080, 324870
Offset: 0
Links
- G. C. Greubel, Table of n, a(n) for n = 0..1000
Programs
-
Maple
seq(denom(add(Stirling2(n,k)/(k+1),k=0..n)),n=0..20); # Peter Luschny, Apr 28 2009
-
Mathematica
Denominator[Table[(1/Exp[1])* Sum[Sum[j^n/k!, {j, 0, k}], {k, 0, Infinity}], {n, 0, 100}]] (* Richard R. Forberg, Dec 28 2014 *) Table[Denominator[Sum[StirlingS2[n, k]/(k + 1), {k, 0, n}]], {n, 0, 50}] (* G. C. Greubel, Jul 10 2018 *)
-
PARI
a(n) = denominator(sum(k=0, n, stirling(n, k, 2)/(k+1))); \\ Michel Marcus, Jan 15 2015, after Maple
Formula
a(n) = denominator(z(n)),n>=0, with the e.g.f. for z(n) given in A130189.
Denominator of Sum_{k=0..n} A048993(n,k)/(k+1). - Peter Luschny, Apr 28 2009
Alternate: a(n) = denominator((1/e)*Sum_{k>=0}*(Sum_{j=0..k} j^n/k!)). NOTE: Numerators are different from A130189, and given by A248716. - Richard R. Forberg, Dec 28 2014
This more generalized expression ((1/e)*Sum_{k>=0} (Sum_{j=0..k} (j+m)^n/k!)), gives the same denominators for any integer m. - Richard R. Forberg, Jan 14 2015
Comments