|
Search: id:A144406
|
|
|
| A144406 |
|
Polynomial expansion as anti-diagonal of: p(x,n)=(x-1)/(x^n*(-x+(2*x-1)/x^n). Based on the Pisot general polynomial type q(x,n)=x^n-(x^n-1)/(x-1). |
|
+0
1
|
|
| 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 3, 1, 1, 1, 2, 4, 5, 1, 1, 1, 2, 4, 7, 8, 1, 1, 1, 2, 4, 8, 13, 13, 1, 1, 1, 2, 4, 8, 15, 24, 21, 1, 1, 1, 2, 4, 8, 16, 29, 44, 34, 1, 1, 1, 2, 4, 8, 16, 31, 56, 81, 55, 1, 1, 1, 2, 4, 8, 16, 32, 61, 108, 149, 89, 1, 1, 1, 2, 4, 8, 16, 32, 63, 120, 208, 274
(list; graph; listen)
|
|
|
OFFSET
|
1,9
|
|
|
COMMENT
|
Row sums are:
{1, 2, 3, 5, 8, 14, 24, 43, 77, 140, 256, 472, 874, 1628, 3045}.
|
|
FORMULA
|
p(x,n)=(x-1)/(x^n*(-x+(2*x-1)/x^n);t(n,m)=anti_diagonal_expansion(p(x,n)).
|
|
EXAMPLE
|
{1},
{1, 1},
{1, 1, 1},
{1, 1, 2, 1},
{1, 1, 2, 3, 1},
{1, 1, 2, 4, 5, 1},
{1, 1, 2, 4, 7, 8, 1},
{1, 1, 2, 4, 8, 13, 13, 1},
{1, 1, 2, 4, 8, 15, 24, 21, 1},
{1, 1, 2, 4, 8, 16, 29, 44, 34, 1},
{1, 1, 2, 4, 8, 16, 31, 56, 81, 55, 1},
{1, 1, 2, 4, 8, 16, 32, 61, 108, 149, 89, 1},
{1, 1, 2, 4, 8, 16, 32, 63, 120, 208, 274, 144, 1},
{1, 1, 2, 4, 8, 16, 32, 64, 125, 236, 401, 504, 233, 1},
{1, 1, 2, 4, 8, 16, 32, 64, 127, 248, 464, 773, 927, 377, 1}
|
|
MATHEMATICA
|
Clear[f, b, a, g, h, n, t]; g[x_, n_] = x^(n) - (x^n - 1)/(x - 1); h[x_, n_] = FullSimplify[ExpandAll[x^(n)*g[1/x, n]]]; f[t_, n_] := 1/h[t, n]; Series[f[t, m], {t, 0, 30}], n], {n, 0, 30}], {m, 1, 31}]; b = Table[Table[a[[n - m + 1]][[m]], {m, 1, n }], {n, 1, 15}]; Flatten[b]
|
|
CROSSREFS
|
Sequence in context: A122945 A119338 A054124 this_sequence A096670 A130461 A130777
Adjacent sequences: A144403 A144404 A144405 this_sequence A144407 A144408 A144409
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)yahoo.com), Sep 29 2008
|
|
|
Search completed in 0.002 seconds
|
