|
%I #22 Sep 08 2022 08:44:31
%S 6,336,42240,9676800,3530096640,1880240947200,1377317368627200,
%T 1328346084409344000,1631723190138961920000,2487305589722682753024000,
%U 4607255276963246207139840000
%N Denominators of expansion of Fresnel integral S(z).
%H Vincenzo Librandi, <a href="/A003031/b003031.txt">Table of n, a(n) for n = 0..200</a>
%F a(n) = (4*n+3) * 2^(2*n+1) * (2*n+1)!.
%t Table[(4n+3)2^(2n+1)(2n+1)!,{n,0,10}] (* or *) Denominator[Take[ CoefficientList[ Series[FresnelS[x],{x,0,60}],x],{4,-1,4}]] (* _Harvey P. Dale_, Oct 21 2011 *)
%o (Magma) [(4*n+3) * 2^(2*n+1) * Factorial(2*n+1): n in [0..20]]; // _Vincenzo Librandi_, Oct 23 2011
%o (PARI) vector(15, n, n--; (4*n+3)*2^(2*n+1)*(2*n+1)!) \\ _G. C. Greubel_, Nov 23 2018
%o (Sage) [(4*n+3)*2^(2*n+1)*factorial(2*n+1) for n in range(15)] # _G. C. Greubel_, Nov 23 2018
%K nonn
%O 0,1
%A _N. J. A. Sloane_
|
