login
Central column of Losanitsch's triangle A034851.
2

%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