|
| |
|
|
A144383
|
|
Anti-diagonal expansion of: f(t,n)=1/(t^n + t + 1).
|
|
0
| |
|
|
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; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,3
|
|
|
COMMENTS
| 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 * A205553 A178411 A064645
Adjacent sequences: A144380 A144381 A144382 * A144384 A144385 A144386
|
|
|
KEYWORD
| sign,uned
|
|
|
AUTHOR
| Roger L. Bagula and Gary W. Adamson (rlbagulatftn(AT)yahoo.com), Oct 01 2008
|
| |
|
|
