|
%I #29 Jun 28 2023 21:44:44
%S 1,53,1378,23426,292825,2869685,22957480,154143080,886322710,
%T 4431613550,19499099620,76223753060,266783135710,841392966470,
%U 2403979904200,6250347750920,14844575908435,32308782859535,64617565719070,119032357903550,202355008436035
%N Binomial coefficients C(53,n).
%C Row 53 of A007318.
%H Nathaniel Johnston, <a href="/A017769/b017769.txt">Table of n, a(n) for n = 0..53</a> (full sequence)
%F From _G. C. Greubel_, Nov 13 2018: (Start)
%F G.f.: (1+x)^53.
%F E.g.f.: 1F1(-53; 1; -x), where 1F1 is the confluent hypergeometric function. (End)
%p seq(binomial(53,n), n=0..53); # _Nathaniel Johnston_, Jun 24 2011
%t With[{k = 53}, Array[Binomial[k, #] &, k + 1, 0]] (* _Michael De Vlieger_, Jul 06 2018 *)
%t With[{nmax = 53}, CoefficientList[Series[Hypergeometric1F1[-53, 1, -x], {x, 0, nmax}], x]*Range[0, nmax]!] (* _G. C. Greubel_, Nov 13 2018 *)
%o (Sage) [binomial(53, n) for n in range(54)] # _Zerinvary Lajos_, May 23 2009
%o (PARI) vector(53, n, n--; binomial(53,n)) \\ _G. C. Greubel_, Nov 13 2018
%o (Magma) [Binomial(53,n): n in [0..53]]; // _G. C. Greubel_, Nov 13 2018
%Y Cf. A010926-A011001, A017765-A017768, A017770-A017816.
%K nonn,fini,full,easy
%O 0,2
%A _N. J. A. Sloane_
|
