login
Denominators of expansion of Fresnel integral S(z).
2

%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_