Search: id:A156645
Results 1-1 of 1 results found.

%I A156645
%S A156645 1,1,1,1,36,1,1,1225,1225,1,1,41616,1416100,41616,1,1,1413721,
%T A156645 1634261476,1634261476,1413721,1,1,48024900,1885939157025,
%U A156645 64069586905104,1885939157025,48024900,1,1,1631432881,2176372249076025
%N A156645 A q combination based on Shabat ChebyshevT (*A123583*) Polynomials:m=1;
               q=2; t(n,k)=If[m == 0, n!, Product[1 - ChebyshevT[k, m + 1]^2, {k, 
               1, n}]]; b(n,k,m)=If[n == 0, 1, t(n, m)/(t(k, m)*t(n - k, m))].
%C A156645 Row sums are:
%C A156645 {1, 2, 18, 452, 50374, 17210316, 26473387956, 125754936641832,
%C A156645 2692503748294554438, 178119744099983099364620, 53115099293451187427426853340,
               ...}.
%F A156645 m=1;q=2;
%F A156645 t(n,k)=If[m == 0, n!, Product[1 - ChebyshevT[k, m + 1]^2, {k, 1, n}]];
%F A156645 b(n,k,m)=If[n == 0, 1, t(n, m)/(t(k, m)*t(n - k, m))].
%e A156645 {1},
%e A156645 {1, 1},
%e A156645 {1, 16, 1},
%e A156645 {1, 225, 225, 1},
%e A156645 {1, 3136, 44100, 3136, 1},
%e A156645 {1, 43681, 8561476, 8561476, 43681, 1},
%e A156645 {1, 608400, 1660970025, 23150231104, 1660970025, 608400, 1},
%e A156645 {1, 8473921, 322220846025, 62555239000969, 62555239000969, 322220846025, 
               8473921, 1},
%e A156645 {1, 118026496, 62509200188176, 169024877308827904, 2354328975040469284, 
               169024877308827904, 62509200188176, 118026496, 1},
%e A156645 {1, 1643897025, 12126462852848400, 456705280997653184784, 88603154642529399752100, 
               88603154642529399752100, 456705280997653184784, 12126462852848400, 
               1643897025, 1},
%e A156645 {1, 22896531856, 2352471287556008025, 1234017524492640137505024, 3334492032897384440894996964, 
               46443647187902490644456769600, 3334492032897384440894996964, 1234017524492640137505024, 
               2352471287556008025, 22896531856, 1}
%t A156645 Clear[t, n, m, i, k, a, b];
%t A156645 t[n_, m_] = If[m == 0, n!, Product[1 - ChebyshevT[k, m + 1]^2, {k, 1, 
               n}]];
%t A156645 b[n_, k_, m_] = If[n == 0, 1, t[n, m]/(t[k, m]*t[n - k, m])];
%t A156645 Table[Flatten[Table[Table[b[n, k, m], {k, 0, n}], {n, 0, 10}]], {m, 0, 
               15}]
%Y A156645 Sequence in context: A013556 A013557 A022071 this_sequence A037935 A159824 
               A100252
%Y A156645 Adjacent sequences: A156642 A156643 A156644 this_sequence A156646 A156647 
               A156648
%K A156645 nonn,tabl,uned
%O A156645 0,5
%A A156645 Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Feb 12 2009

Search completed in 0.001 seconds