editing
approved
editing
approved
1, 2, 4, 8, 15, 240, 15120, 672, 8400, 100800, 69300, 4950, 17199000, 22422400, 33633600, 201801600, 467812800, 102918816000, 410646075840, 3555377280, 215100325440, 5162407810560, 30920671782000, 190281057120, 1085315579548200, 562756226432400, 22969641895200
with(combinat):seq(denom(stirling1-Stirling1(j+3, , 3)/(j+3)!*3!*(-1)^j), j=03..50); # Barbara Margolius (b.margolius(AT)math.csuohio.edu), Jan 19 2002
proposed
editing
editing
proposed
Denominator of sum 1/(Sum_{i*+j*+k) for =n; i,j,k > 0 and } 1/(i+*j+*k=n).
Denominator[Table[Sum[1/i/j/(n-i-j), {i, n-2}, {j, n-i-1}], {n, 3, 100}]] (* _Ryan Propper _ *)
approved
editing
editing
approved
A. N. Lowan, H. E. Salzer and A. Hillman, <a href="/A002545/a002545.pdf">A table of coefficients for numerical differentiation</a>, Bull. Amer. Math. Soc., 48 (1942), 920-924. [Annotated scanned copy]
approved
editing
editing
approved
W. G. Bickley and J. C. P. Miller, <a href="/A002551/a002551.pdf">Numerical differentiation near the limits of a difference table</a>, Phil. Mag., 33 (1942), 1-12 (plus tables) [Annotated scanned copy]
approved
editing
proposed
approved