|
%I #11 Sep 08 2022 08:44:52
%S 1,1,1,2,4,6,10,19,38,66,126,236,472,868,1716,3235,6470,12190,24310,
%T 46252,92504,176484,352716,676270,1352540,2600612,5200300,10030008,
%U 20060016,38781096,77558760,150273315,300546630,583407990,1166803110,2268795980,4537591960,8836340260,17672631900
%N Central column of Losanitsch's triangle A034851.
%H G. C. Greubel, <a href="/A034872/b034872.txt">Table of n, a(n) for n = 0..1000</a>
%H N. J. A. Sloane, <a href="/classic.html#LOSS">Classic Sequences</a>
%t Table[(1/2)*(Binomial[n, Floor[n/2]] + Binomial[Mod[n, 2], Mod[Floor[n/2], 2]]*Binomial[Floor[n/2], Floor[Floor[n/2]/2]]), {n, 0, 50}] (* _G. C. Greubel_, Feb 23 2018 *)
%o (PARI) for(n=0,50, print1((1/2)*(binomial(n,n\2) + binomial(n%2,(n\2)%2)* binomial(n\2, (n\2)\2)), ", ")) \\ _G. C. Greubel_, Feb 23 2018
%o (Magma) [(1/2)*(Binomial(n, Floor(n/2)) + Binomial(n mod 2, Floor(n/2) mod 2)*Binomial(Floor(n/2), Floor(Floor(n/2)/2))): n in [0..50]]; // _G. C. Greubel_, Feb 23 2018
%K nonn
%O 0,4
%A _N. J. A. Sloane_
%E Terms a(32) onward added by _G. C. Greubel_, Feb 23 2018
|
