|
%I #12 Aug 21 2018 04:40:51
%S 2,0,3,-4,0,9,0,-18,0,27,8,0,-72,0,81,0,60,0,-270,0,243,-16,0,324,0,
%T -972,0,729,0,-168,0,1512,0,-3402,0,2187,32,0,-1152,0,6480,0,-11664,0,
%U 6561,0,432,0,-6480,0,26244,0,-39366,0,19683,-64,0,3600,0,-32400,0,102060,0,-131220,0,59049
%N Triangle read by rows: coefficients of Fermat-Lucas polynomials.
%C The Fermat-Lucas polynomials F(n) are defined by the recurrence: F(0) = 2, F(1) = 3*y and F(n) = 3*y*F(n - 1) - 2*F(n - 2) for n > 1. - _Andrew Howroyd_, Aug 20 2018
%H Andrew Howroyd, <a href="/A137372/b137372.txt">Table of n, a(n) for n = 0..1274</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Fermat-LucasPolynomial.html">Fermat-Lucas Polynomial</a>.
%F G.f.: (2 - 3*x*y)/(1 - 3*y*x + 2*x^2). - _Andrew Howroyd_, Aug 21 2018
%e The first few polynomials are:
%e 2;
%e 3*y;
%e -4 + 9*y^2;
%e -18*y + 27*y^3;
%e ...
%e Triangle begins:
%e 2;
%e 0, 3;
%e -4, 0, 9;
%e 0, -18, 0, 27;
%e 8, 0, -72, 0, 81;
%e 0, 60, 0, -270, 0, 243;
%e -16, 0,324, 0, -972, 0, 729;
%e 0, -168, 0, 1512, 0, -3402, 0, 2187;
%e 32, 0, -1152, 0, 6480, 0, -11664, 0, 6561;
%e 0, 432, 0, -6480, 0, 26244, 0, -39366, 0, 19683;
%e -64, 0, 3600, 0, -32400, 0, 102060, 0, -131220, 0, 59049;
%e ...
%t << Lucas`; Table[ExpandAll[Fermatf[n, x]], {n, 0, 10}]; a = Table[CoefficientList[Fermatf[n, x], x], {n, 0, 10}]; Flatten[a] Table[Apply[Plus, CoefficientList[Fermatf[n, x], x]], {n, 0, 10}]
%o (PARI) T(n,k)=polcoef(polcoef((2 - 3*x*y)/(1 - 3*y*x + 2*x^2) + O(x*x^n), n, x), k, y);
%o for(n=0, 10, for(k=0, n, print1(T(n, k), ", ")); print); \\ _Andrew Howroyd_, Aug 20 2018
%Y Row sums are A000051.
%K tabl,sign
%O 0,1
%A _Roger L. Bagula_, Apr 09 2008
%E Offset corrected and name clarified by _Andrew Howroyd_, Aug 20 2018
|
