|
Search: id:A137374
|
|
|
| A137374 |
|
Triangular sequence of coefficients of Jacobsthal-Lucas polynomials as defined in the Lucas.m MathWorld package for Mathematica. |
|
+0
1
|
|
| 2, 1, 4, 1, 6, 1, 8, 8, 1, 20, 10, 1, 16, 36, 12, 1, 56, 56, 14, 1, 32, 128, 80, 16, 1, 144, 240, 108, 18, 1, 64, 400, 400, 140, 20, 1
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
COMMENT
|
Row sums are A014551
|
|
REFERENCES
|
Weisstein, Eric W. "Jacobsthal-Lucas Polynomial." http://mathworld.wolfram.com/Jacobsthal-LucasPolynomial.html
|
|
FORMULA
|
"The Jacobsthal polynomials are the w-polynomials obtained by setting p(x)=1 and q(x)=2x in the Lucas polynomial sequence. "; Jacobsthalj[n, x]
|
|
EXAMPLE
|
{2},
{1},
{4, 1},
{6, 1},
{8, 8, 1},
{20, 10, 1},
{16, 36, 12, 1},
{56, 56, 14, 1},
{32, 128, 80, 16, 1},
{144, 240, 108, 18, 1},
{64, 400, 400, 140, 20, 1}
|
|
MATHEMATICA
|
<< Lucas`; Table[ExpandAll[Jacobsthalj[n, x]], {n, 0, 10}]; a = Table[Reverse[CoefficientList[Jacobsthalj[n, x], x]], {n, 0, 10}]; Flatten[a] Table[Apply[Plus, CoefficientList[Jacobsthalj[n, x], x]], {n, 0, 10}]
|
|
CROSSREFS
|
Cf. A014551.
Adjacent sequences: A137371 A137372 A137373 this_sequence A137375 A137376 A137377
Sequence in context: A083259 A009531 A124625 this_sequence A131516 A088140 A130758
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Apr 09 2008
|
|
|
Search completed in 0.002 seconds
|
