A208983 Central terms of the triangle in A208101.
1, 2, 3, 14, 20, 110, 154, 910, 1260, 7752, 10659, 67298, 92092, 592020, 807300, 5259150, 7152444, 47071640, 63882940, 423830264, 574221648, 3834669566, 5188082354, 34834267234, 47073334100, 317506779800, 428634152730, 2902365981900, 3914819231400
Offset: 0
Keywords
Links
- Reinhard Zumkeller, Table of n, a(n) for n = 0..1000
Programs
-
Haskell
a208983 n = a208101 (2 * n) n
-
Mathematica
T[, 0] = 1; T[n, 1] := n; T[n_, n_] := T[n - 1, n - 2]; T[n_, k_] /; 1 < k < n := T[n, k] = T[n - 1, k] + T[n - 1, k - 2]; a[n_] := T[2n, n]; Table[a[n], {n, 0, 30}] (* Jean-François Alcover, Feb 03 2018, from A208101 *)
Comments