A109447 Binomial coefficients C(n,k) with n-k odd, read by rows.
1, 2, 1, 3, 4, 4, 1, 10, 5, 6, 20, 6, 1, 21, 35, 7, 8, 56, 56, 8, 1, 36, 126, 84, 9, 10, 120, 252, 120, 10, 1, 55, 330, 462, 165, 11, 12, 220, 792, 792, 220, 12, 1, 78, 715, 1716, 1287, 286, 13, 14, 364, 2002, 3432, 2002, 364, 14, 1, 105, 1365, 5005, 6435, 3003, 455, 15
Offset: 1
Examples
Starred terms in Pascal's triangle (A007318), read by rows: 1; 1*, 1; 1, 2*, 1; 1*, 3, 3*, 1; 1, 4*, 6, 4*, 1; 1*, 5, 10*, 10, 5*, 1; 1, 6*, 15, 20*, 15, 6*, 1; 1*, 7, 21*, 35, 35*, 21, 7*, 1; 1, 8*, 28, 56*, 70, 56*, 28, 8*, 1; 1*, 9, 36*, 84, 126*, 126, 84*, 36, 9*, 1; Triangle T(n,k) begins: 1; 2; 1, 3; 4, 4; 1, 10, 5; 6, 20, 6; 1, 21, 35, 7; 8, 56, 56, 8; 1, 36, 126, 84, 9; 10, 120, 252, 120, 10;
Links
- Alois P. Heinz, Rows n = 1..200, flattened
Crossrefs
Cf. A109446.
Programs
-
Maple
T:= (n, k)-> binomial(n, 2*k+1-irem(n, 2)): seq(seq(T(n, k), k=0..ceil((n-2)/2)), n=1..20); # Alois P. Heinz, Feb 07 2014
-
Mathematica
Flatten[ Table[ If[ OddQ[n - k], Binomial[n, k], {}], {n, 0, 15}, {k, 0, n}]] (* Robert G. Wilson v *)
Extensions
More terms from Robert G. Wilson v, Aug 30 2005
Corrected offset by Alois P. Heinz, Feb 07 2014
Comments