|
Search: id:A144383
|
|
|
| A144383 |
|
Anti-diagonal expansion of: f(t,n)=1/(t^n + t + 1). |
|
+0
1
|
|
| 1, 1, -2, 1, -1, 4, 1, -1, 0, -8, 1, -1, 1, 1, 16, 1, -1, 1, -2, -1, -32, 1, -1, 1, -1, 3, 0, 64, 1, -1, 1, -1, 0, -4, 1, -128, 1, -1, 1, -1, 1, 1, 6, -1, 256, 1, -1, 1, -1, 1, -2, -2, -9, 0, -512, 1, -1, 1, -1, 1, -1, 3, 3, 13, 1, 1024, 1, -1, 1, -1, 1, -1, 0, -4, -3, -19, -1, -2048, 1, -1, 1, -1, 1, -1, 1, 1, 5, 2, 28, 0, 4096, 1, -1, 1, -1, 1
(list; graph; listen)
|
|
|
OFFSET
|
1,3
|
|
|
COMMENT
|
Row sums are:
{1, -1, 4, -8, 18, -34, 67, -131, 263, -524, 1044, -2075, 4133, -8241, 16454}.
|
|
FORMULA
|
f(t,n)=1/(t^n + t + 1); T(n,m)=anti_diagonal(f(t,n)).
|
|
EXAMPLE
|
{1},
{1, -2},
{1, -1, 4},
{1, -1, 0, -8},
{1, -1, 1, 1, 16},
{1, -1, 1, -2, -1, -32},
{1, -1, 1, -1, 3, 0, 64},
{1, -1, 1, -1, 0, -4, 1, -128},
{1, -1, 1, -1, 1, 1, 6, -1, 256},
{1, -1, 1, -1, 1, -2, -2, -9, 0, -512},
{1, -1, 1, -1, 1, -1, 3, 3, 13, 1, 1024},
{1, -1, 1, -1, 1, -1, 0, -4, -3, -19, -1, -2048},
{1, -1, 1, -1, 1, -1, 1, 1, 5, 2, 28, 0, 4096},
{1, -1, 1, -1, 1, -1, 1, -2, -2, -6, 0, -41, 1, -8192},
{1, -1, 1, -1, 1, -1, 1, -1, 3, 3, 8, -3, 60, -1, 16384}
|
|
MATHEMATICA
|
Clear[f, b, a, g, h, n, t]; f[t_, n_] = 1/(t^n + t + 1); a = Table[Table[SeriesCoefficient[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: A087605 A106246 A136674 this_sequence A064645 A008307 A099238
Adjacent sequences: A144380 A144381 A144382 this_sequence A144384 A144385 A144386
|
|
KEYWORD
|
sign,uned
|
|
AUTHOR
|
Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)yahoo.com), Oct 01 2008
|
|
|
Search completed in 0.002 seconds
|
