|
%I #10 Mar 19 2017 00:21:03
%S 1,2,3,1,8,5,8,1,8,7,1,48,1,128,9,16,1,128,1,128,11,1,128,1,64,1,512,
%T 13,128,1,320,1,1536,1,512,15,1,256,1,1024,1,2048,1,32768,17,256,1,
%U 1024,1,2048,1,32768,1,32768,19,1,3072,1,7168,1,32768,1,24576,1
%N Triangle of denominators of Integrate[LegendreP[m,x]LegendreP[n,x],{x,0,1}].
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/LegendrePolynomial.html">Legendre Polynomial</a>
%o (PARI) T(m,n)=denominator(subst(intformal(pollegendre(m)*pollegendre(n)),'x,1))
%o for(n=0,9,for(m=0,n, print1(T(m,n)", "))) \\ _Charles R Greathouse IV_, Mar 19 2017
%Y Cf. A078297.
%K nonn,tabl,frac
%O 0,2
%A _Eric W. Weisstein_, Nov 21 2002
|
