|
|
A110906
|
|
Expansion of (1 +34*x +121*x^2)/((1-x)*(x^2 -14*x +1)).
|
|
1
|
|
|
1, 49, 841, 11881, 165649, 2307361, 32137561, 447618649, 6234523681, 86835713041, 1209465459049, 16845680713801, 234630064534321, 3267975222766849, 45517023054201721, 633970347536057401
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
A floretion-generated sequence of squares.
|
|
LINKS
|
|
|
FORMULA
|
a(n) = -13 + (7-4*sqrt(3))^n*(7+(3*sqrt(3))/2) + (7-(3*sqrt(3))/2)*(7+4*sqrt(3))^n.
a(n) = 15*a(n-1) - 15*a(n-2) + a(n-3) for n>2.
(End)
|
|
MATHEMATICA
|
CoefficientList[Series[(1 + 34*x + 121*x^2)/((1 - x)*(x^2 - 14*x + 1)), {x, 0, 50}], x] (* G. C. Greubel, Oct 19 2017 *)
|
|
PROG
|
Floretion Algebra Multiplication Program, FAMP Code: 1vescycseq[C*B] with C = - 'j + 'k - j' + k' - 'ii' - 'ij' - 'ik' - 'ji' - 'ki' B = - 'i + 'j - i' + j' - 'kk' - 'ik' - 'jk' - 'ki' - 'kj'
(PARI) x='x+O('x^50); Vec((1 +34*x +121*x^2)/((1-x)*(x^2 -14*x +1))) \\ G. C. Greubel, Oct 19 2017
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|