cp's OEIS Frontend

A246051 Triangle read by rows: numerator of h(n-k)*h(k)/h(n) where h(x) = zeta(2*x)*(4^x-2), 0<=k<=n.

%I A246051 #11 Aug 18 2014 16:56:50
%S A246051 1,1,1,1,5,1,1,49,49,1,1,310,343,310,1,1,4191,341,341,4191,1,1,
%T A246051 1162525,2669667,1374230,2669667,1162525,1,1,1414477,46501,562991,
%U A246051 562991,46501,1414477,1,1,13924700,48092218,1613300,117628797,1613300,48092218,13924700,1
%N A246051 Triangle read by rows: numerator of h(n-k)*h(k)/h(n) where h(x) = zeta(2*x)*(4^x-2), 0<=k<=n.
%e A246051 Triangle starts:
%e A246051              1
%e A246051             1, 1
%e A246051           1, 5, 1
%e A246051         1, 49, 49, 1
%e A246051     1, 310, 343, 310, 1
%e A246051 1, 4191, 341, 341, 4191, 1
%p A246051 h := x -> Zeta(2*x)*(4^x-2);
%p A246051 A246051 := (n, k) -> h(n-k)*h(k)/h(n);
%p A246051 seq(print(seq(numer(A246051(n, k)), k=0..n)), n=0..8);
%o A246051 (Sage)
%o A246051 h = lambda n: zeta(2*n)*(4^n-2)
%o A246051 A246051 = lambda n, k: h(n-k)*h(k)/h(n)
%o A246051 for n in range(8): [A246051(n, k).numerator() for k in (0..n)]
%Y A246051 Cf. A246052 (denominators).
%K A246051 nonn,frac,tabl
%O A246051 0,5
%A A246051 _Peter Luschny_, Aug 11 2014