OFFSET
0,13
COMMENTS
Auxiliary array for computing Losanitsch's triangle A034851;
T(n, k) + T(n, k + 2) = T(n + 2, k + 2) for k < n - 1.
LINKS
Reinhard Zumkeller, Rows n=0..100 of triangle, flattened
S. M. Losanitsch, Die Isomerie-Arten bei den Homologen der Paraffin-Reihe, Chem. Ber. 30 (1897), 1917-1926. (Annotated scanned copy)
N. J. A. Sloane, Classic Sequences: Losanitsch's Triangle
Eric Weisstein's World of Mathematics, Losanitsch's Triangle
FORMULA
T(n, k) = (1 - n mod 2) * (1 - k mod 2) * binomial(floor(n/2),floor(k/2)).
MATHEMATICA
t[n_?EvenQ, k_?EvenQ] := Binomial[n/2, k/2]; t[_, _] = 0; Flatten[Table[t[n, k], {n, 0, 12}, {k, 0, n}]] (* Jean-François Alcover, Feb 07 2012 *)
PROG
(Haskell)
a204293 n k = a204293_tabl !! n !! k
a204293_row n = a204293_tabl !! n
a204293_tabl = [1] : [0, 0] : f [1] [0, 0] where
f xs ys = xs' : f ys xs' where
xs' = zipWith (+) ([0, 0] ++ xs) (xs ++ [0, 0])
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Reinhard Zumkeller, Jan 14 2012
EXTENSIONS
Formula for T(n,k) corrected by Peter Bala, Jul 06 2015
STATUS
approved