|
%I M3152 N1277 #22 Oct 04 2021 12:37:10
%S 3,45,252,28350,1496880,3405402000,17513496000,7815397590000,
%T 5543722023840000,235212205868640000,206559082608278400000,
%U 516914104227216696000000,572581776990147724800000
%N Denominators of coefficients for repeated integration.
%D N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
%D N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).
%H H. E. Salzer, <a href="https://doi.org/10.1002/sapm194928154">Coefficients for repeated integration with central differences</a>, Journal of Mathematics and Physics, 28 (1949), 54-61.
%F a(n) is the denominator of ((n+1)/2)M(n) + (2n+2)M(n+1), where M(n) = (2/(2n+1)!)*Integral_{t=0..1} (t*Product_{k=1..n} (t^2 - k^2)). - _Emeric Deutsch_, Jan 25 2005
%p M:=n->(2/(2*n+1)!)*int(t*product(t^2-k^2,k=1..n),t=0..1): A:=n->((n+1)/2)*M(n)+(2*n+2)*M(n+1): seq(denom(A(n)),n=0..15); # _Emeric Deutsch_, Jan 25 2005
%t M[n_] := (2/(2n+1)!) Integrate[t Product[t^2-k^2, {k, 1, n}], {t, 0, 1}];
%t A[n_] := ((n+1)/2) M[n] + (2n+2) M[n+1];
%t Table[Denominator[A[n]], {n, 0, 15}] (* _Jean-François Alcover_, Oct 04 2021, after Maple code *)
%Y Cf. A002195, A002196, A002681.
%K nonn,frac
%O 0,1
%A _N. J. A. Sloane_
%E More terms from _Emeric Deutsch_, Jan 25 2005
|
