|
%I #18 Oct 04 2023 04:48:57
%S 1,2,2,5,6,4,13,18,16,8,35,52,56,40,16,96,150,180,160,96,32,267,432,
%T 560,568,432,224,64,750,1246,1708,1904,1680,1120,512,128,2123,3600,
%U 5152,6160,6048,4736,2816,1152,256,6046,10422,15432,19488,20736,18240,12864,6912,2560,512
%N T(n,k) = Sum_{j=0..n-k} H(n,j)*2^k with H(n,k) = binomial(n,k)* hypergeom([-k/2, 1/2-k/2], [2-k+n], 4), for 0 <= k <= n, triangle read by rows.
%e 1
%e 2, 2
%e 5, 6, 4
%e 13, 18, 16, 8
%e 35, 52, 56, 40, 16
%e 96, 150, 180, 160, 96, 32
%e 267, 432, 560, 568, 432, 224, 64
%e 750, 1246, 1708, 1904, 1680, 1120, 512, 128
%e 2123, 3600, 5152, 6160, 6048, 4736, 2816, 1152, 256
%p H := (n,k) -> binomial(n,k)*hypergeom([-k/2,1/2-k/2],[2-k+n], 4):
%p T := (n,k) -> add(simplify(H(n,j)*2^k), j=0..n-k):
%p seq(seq(T(n,k), k=0..n), n=0..9);
%t s={};For[n=0,n<13,n++,For[k=0,k<n+1,k++,AppendTo[s,(2^k)*(GegenbauerC[n-k-1,-n,-1/2]+GegenbauerC[n-k,-n,-1/2]+KroneckerDelta[n])]]];s (* _Detlef Meya_, Oct 03 2023 *)
%Y Row sums are A126932, first column A005773, diagonal A000079.
%Y Cf. A301475 (general case).
%K nonn,tabl
%O 0,2
%A _Peter Luschny_, Mar 22 2018
|
