cp's OEIS Frontend

A220901 Triangle read by rows: k-th "a-number" of star graph K_{1,n-1}.

%I A220901 #21 Oct 06 2018 06:42:08
%S A220901 1,1,1,1,1,2,1,3,2,1,4,8,1,5,20,16,1,6,40,96,1,7,70,336,272,1,8,112,
%T A220901 896,2176,1,9,168,2016,9792,7936,1,10,240,4032,32640,79360,1,11,330,
%U A220901 7392,89760,436480,353792,1,12,440,12672,215424,1745920,4245504
%N A220901 Triangle read by rows: k-th "a-number" of star graph K_{1,n-1}.
%H A220901 Alois P. Heinz, <a href="/A220901/b220901.txt">Rows n = 0..200, flattened</a>
%H A220901 Suyoung Choi and Hanchul Park, <a href="http://arxiv.org/abs/1210.3776">A new graph invariant arises in toric topology</a>, arXiv preprint arXiv:1210.3776 [math.AT], 2012-2013. See Table 4.
%F A220901 T(n,k) = binomial(n-1, 2*k-1)*A000111(2*k-1) (see Theorem 2.9 in paper). - _Michel Marcus_, Feb 07 2013
%e A220901 Triangle begins:
%e A220901   1;
%e A220901   1;
%e A220901   1, 1;
%e A220901   1, 2;
%e A220901   1, 3,  2;
%e A220901   1, 4,  8;
%e A220901   1, 5, 20,  16;
%e A220901   1, 6, 40,  96;
%e A220901   1, 7, 70, 336, 272;
%e A220901   ...
%t A220901 t[n_, k_] := t[n, k] = If[k == 0, Boole[n == 0], t[n, k-1] + t[n-1, n-k]];
%t A220901 T[n_, k_] := If[k == 0, 1, Binomial[n-1, 2k-1] t[2k-1, 2k-1]];
%t A220901 Table[T[n, k], {n, 0, 13}, {k, 0, Floor[n/2]}] // Flatten (* _Jean-François Alcover_, Oct 06 2018 *)
%o A220901 (PARI) T(n,k) = {if (k == 0, return(1)); binomial(n - 1, 2*k - 1)*(2*k - 1)!*polcoeff(tan(x + O(x^(2*n + 2))), 2*k - 1);} \\ _Michel Marcus_, Feb 07 2013
%K A220901 nonn,tabf
%O A220901 0,6
%A A220901 _N. J. A. Sloane_, Jan 01 2013
%E A220901 More terms from _Michel Marcus_, Feb 07 2013