Search: id:A160474 Results 1-1 of 1 results found. %I A160474 %S A160474 1,51,10,10594,2961,210,356487,115940,12642,420,101141295, %T A160474 35804857,4751890,254562,4620,48350824787,18071509911,2689347661, %U A160474 180909586,5471466,60060 %V A160474 -1,51,-10,-10594,2961,-210,356487,-115940,12642,-420,-101141295, %W A160474 35804857,-4751890,254562,-4620,48350824787,-18071509911,2689347661, %X A160474 -180909586,5471466,-60060 %N A160474 The Zeta triangle %C A160474 The coefficients of the ZS1 matrix are defined by ZS1[2*m-1,n] = (2^(2*m-1))*int(y^(2*m-1)/ (sinh(y))^(2*n), y=0..infinity)/factorial(2*m-1) for m = 1, 2, 3, .. and n = 1, 2, 3, .. under the condition that n <= (m-1). %C A160474 This definition leads to ZS1[2*m-1,n=1] = 2*zeta(2*m-1), for m = 2, 3, .. , and the recurrence relation ZS1[2*m-1,n]:=(1/(2*n-1))*((2/(n-1))*ZS1[2*m-3, n-1]-(2*n-2)*ZS1[2*m-1,n-1]). As usual zeta(m) is the Riemann zeta function. These two formulae enable us to determine the values of the ZS[2*m-1,n] coefficients, with m all integers and n all positive integers, but not for all. If we choose, somewhat but not entirely arbitrarily, ZS1[1,n=1] = 2*gamma, with gamma the Euler-Mascheroni constant, we can determine them all. %C A160474 The coefficients in the columns of the ZS1 matrix, for m = 1, 2, 3, .., and n = 2, 3, 4 .. , can be generated with the GH(z;n) polynomials for which we found the following general expression GH(z;n) = (h(n)*CFN1(z; n)*GH(z;n=1) + ZETA(z;n))/p(n). %C A160474 The CFN1(z;n) polynomials depend on the central factorial numbers A008955. %C A160474 The ZETA(z;n) are the Zeta polynomials which lead to the Zeta triangle. %C A160474 The zero patterns of the Zeta polynomials resemble a UFO. These patterns resemble those of the Eta, Beta and Lambda polynomials, see A160464, A160480 and A160487. %C A160474 The first Maple algorithm generates the coefficients of the Zeta triangle. The second Maple algorithm generates the ZS1[2*m-1,n] coefficients for m= 0, -1, -2, .. . %C A160474 The M(n) sequence, see the second Maple algorithm, leads to Gould's sequence A001316 and the 'look-a-like' of the denominators in Taylor series for tan(x), i.e. A156769(n). %C A160474 Some of our results are conjectures based on numerical evidence. %H A160474 M. Abramowitz and I. A. Stegun, eds., Handbook of Mathematical Functions, National Bureau of Standards, Applied Math. Series 55, Tenth Printing, 1972, Chapter 23, pp. 811-812. %H A160474 J.W. Meijer and N.H.G. Baken, The Exponential Integral Distribution, Statistics and Probability Letters, Volume 5, No.3, April 1987. pp 209-211. %F A160474 We discovered a remarkable relation between the Zeta triangle coefficients ZETA(n,m) = ZL(n)*(ZETA(n-1,m-1)-(n-1)^2*ZETA(n-1,m)) for n = 3, 4, .. and m = 2, 3, .. . See A160475 for ZETA(n,m=1) and furthermore ZETA(n,n) = 0 for n = 2, 3, .. . %F A160474 We observe that the ZL(n) = A160479(n) sequence also rules the Lambda triangle A160487. %F A160474 The generating functions GH(z;n) of the coefficients in the matrix columns are defined by %F A160474 GH(z;n) = sum(ZS1[2*m-1,n]*z^(2*m-2), m=1..infinity), with n = 1, 2, 3, .. . This definition, and our choice of ZS1[1,1] = 2*gamma, leads to GH(z;n=1) = (-Psi(1-z)-Psi(1+z)) with Psi(z) the digamma-function. Furthermore we discovered that GH(z;n) = GH(z;n-1)*(2*z^2/((2*n-1)*(n-1))-(2*n-2)/ (2*n-1))+2*ZS1[ -1,n-1]/((2*n-1)*(n-1)) for n = 2, 3 , .. , with ZS1[ -1,n] = 2^(2*n-1)*A002195(n)/A002196(n) for n = 1, 2, .. . %F A160474 We found the following general expression for the GH(z;n) polynomials, for n = 2, 3, .. %F A160474 GH(z;n) = (h(n)*CFN1(z;n)*GH(z;n=1) + ZETA(z;n))/p(n) with %F A160474 h(n) = 6*A160476(n) and p(n) = A160478(n). %e A160474 The first few rows of the triangle ZETA(n,m) with n=2,3,.. and m=1,2, .. are %e A160474 [ -1] %e A160474 [51, -10] %e A160474 [ -10594, 2961, -210] %e A160474 [356487, -115940, 12642, -420] %e A160474 The first few ZETA(z;n) polynomials are %e A160474 ZETA(z;n=2) = -1 %e A160474 ZETA(z;n=3) = 51 -10*z^2 %e A160474 ZETA(z;n=4) = -10594+2961*z^2-210*z^4 %e A160474 The first few CFN1(z;n) polynomials are %e A160474 CFN1(z;n=2) = (z^2-1) %e A160474 CFN1(z;n=3) = (z^4-5*z^2+4) %e A160474 CFN1(z;n=4) = (z^6- 14*z^4+49*z^2-36) %e A160474 The first few generating functions GH(z;n) are: %e A160474 GH(z;n=2) = (6*(z^2-1)*GH(z;n=1) + (-1)) / 9 %e A160474 GH(z;n=3) = (60*(z^4-5*z^2+4)*GH(z;n=1) + (51 -10*z^2)) / 450 %e A160474 GH(z;n=4) = (1260*(z^6-14*z^4+49*z^2-36)*GH(z;n=1) + (-10594+ 2961*z^2-210*z^4))/ 99225 %p A160474 restart; nmax:=7: jn:=nmax: im:=nmax: Omega(0):=1: for n from 1 to nmax do for j from 1 to jn do cfn1(1, j):=1 end do: for i from 2 to im do cfn1(i, 1):=0 end do: for j from 2 to jn do for i from 2 to im do cfn1(i, j):=cfn1(i-1, j-1)*(j-1)^2+cfn1(i, j-1) end do end do: Omega(n):= (sum((-1)^(k+n+1)*(bernoulli(2*k)/(2*k))*cfn1(n-k+1, n), k=1..n))/(2*n-1)! end do: for n from 1 to nmax do d(n):=(Omega(n)*2^(2*n-1)) end do: for n from 2 to nmax do Zc(n-1):= d(n-1)*2/((2*n-1)*(n-1)) end do: c(1):=denom(Zc(1)): for n from 1 to nmax-1 do c(n+1):= lcm(c(n)*(n+1)*(2*n+3)/ 2,denom(Zc(n+1))); p(n+1):=c(n) end do: %p A160474 y(1):=Zc(1): for n from 1 to nmax-2 do y(n+1):= Zc(n+1)-((2*n+2)/(2*n+3))*y(n) end do: for n from 2 to nmax do ZETA(n,1):= p(n)*y(n-1) end do: nmax:=nmax; mmax:=nmax: for n from 2 to nmax do ZETA(n,n):=0 end do: for n from 1 to nmax do b(n):= 4^(-n)*(2*n+1)*n*denom(Omega(n)) end do: c(1):=b(1): for n from 1 to nmax-1 do c(n+1):=lcm(c(n)*(n+1)*(2*n+3)/2,b(n+1)) end do: %p A160474 for n from 1 to nmax do cm(n):= c(n)*(1/6)* 4^n/(2*n+1)! end do: for n from 1 to nmax-1 do d(n+2):=cm(n+1)/cm(n) end do: for m from 2 to mmax do for n from m+1 to nmax do ZETA(n,m):= d(n)*(ZETA(n-1,m-1)-(n-1)^2* ZETA(n-1,m)) end do end do; for n from 2 to nmax do for m from 1 to n-1 do b((((n-2)*(n-1)/2))+m+1):=ZETA(n,m) end do end do: a:=n-> b(n): seq(a(n), n=2..(nmax-1)*(nmax)/2+1); %p A160474 restart; nmax:=10; m:=1; ZS1row:=1-2*m; jn:=nmax: im:=nmax: for n from 1 to nmax do for j from 1 to jn do cfn1[1, j]:=1 end do: for i from 2 to im do cfn1[i, 1]:=0 end do: for j from 2 to jn do for i from 2 to im do cfn1[i, j]:=cfn1[i-1, j-1]*(j-1)^2+cfn1[i, j-1] end do end do: end do: mmax:=nmax: for m1 from 1 to mmax do M(m1-1):=2^(2*m1-2)/ ((2*m1-1)!) end do: for m1 from 1 to mmax do ZS1[ -2*m1+1,1]:=2*(-bernoulli(2*m1)/ (2*m1)) od: for n from 2 to nmax do for m1 from 1 to mmax-n+1 do ZS1[ -2*m1+1,n]:= M(n-1)*sum((-1)^(k+1)* cfn1[k,n]* ZS1[2*k -2*n-2*m1 +1,1],k=1..n) od: od: a:=n-> ZS1[1-2*m,n]: seq(a(n), n=1..nmax-m+1); %Y A160474 A160475 equals the first left hand column. %Y A160474 A160476 equals the first right hand column and 6*h(n). %Y A160474 A160477 equals the rows sums . %Y A160474 A160478 equals the p(n) sequence. %Y A160474 A160479 equals the ZL(n) sequence. %Y A160474 A001620 is the Euler-Mascheroni constant gamma. %Y A160474 The M(n-1) sequence equals A001316(n-1)/A156769(n) (n>=1). %Y A160474 The ZS1[ -1, n] coefficients lead to A002195 and A002196. %Y A160474 The CFN1(z, n) and the cfn1(m, n) lead to A008955. %Y A160474 Cf. The Eta, Beta and Lambda triangles A160464, A160480 and A160487. %Y A160474 Contribution from Johannes W. Meijer (meijgia(AT)hotmail.com), Jul 06 2009: (Start) %Y A160474 Cf. A162446 (ZG1 matrix) %Y A160474 (End) %Y A160474 Sequence in context: A152515 A111402 A087408 this_sequence A033371 A131536 A003912 %Y A160474 Adjacent sequences: A160471 A160472 A160473 this_sequence A160475 A160476 A160477 %K A160474 easy,sign,tabl %O A160474 2,2 %A A160474 Johannes W. Meijer (meijgia(AT)hotmail.com), May 24 2009 Search completed in 0.002 seconds