%I #8 Aug 12 2024 13:29:05
%S 1,1,3,2,5,13,6,14,33,79,24,54,122,277,633,120,264,582,1286,2849,6331,
%T 720,1560,3384,7350,15986,34821,75973,5040,10800,23160,49704,106758,
%U 229502,493825,1063623,40320,85680,182160,387480,824664,1756086,3741674,7977173,17017969
%N Triangle read by rows: T(n, k) = n! * 2^k * hypergeom([-k], [-n], 1/2).
%F T(n, k) = Sum_{j=0..k} 2^(k - j)*binomial(k, k - j)*(n - j)!. - _Detlef Meya_, Aug 12 2024
%t T[n_, k_] := n! 2^k Hypergeometric1F1[-k, -n, 1/2];
%t (* Alternative: *)
%t T[n_, k_] := Sum[2^(k - j)*Binomial[k, k - j]*((n - j)!), {j, 0, k}];
%t Table[T[n, k], {n, 0, 8}, {k, 0, n}] // Flatten (* _Detlef Meya_, Aug 12 2024 *)
%Y Cf. A010844 (main diagonal), A374427.
%K nonn,tabl
%O 0,3
%A _Peter Luschny_, Jul 28 2024