A152462 A nonsense sequence.

1, 1, -1, 2, -1, 1, 3, -2, 1, -1, 5, -3, 3, -1, -1, 8, -5, 5, -4, -1, 7, 13, -8, 9, -7, 4, 7, -27, 21, -13, 15, -13, 9, -1, -27, 83, 34, -21, 25, -22, 19, -9, -14, 83, -239, 55, -34, 41, -37, 34, -25, -1, 62, -239, 659, 89, -55, 67, -61, 59, -49, 25, 41, -205, 659, -1781

Offset

0,4

Links

Table of n, a(n) for n=0..65.

Example

{1},
{1, -1},
{2, -1, 1},
{3, -2, 1, -1},
{5, -3, 3, -1, -1},
{8, -5, 5, -4, -1, 7},
{13, -8, 9, -7, 4, 7, -27},
{21, -13, 15, -13, 9, -1, -27, 83},
{34, -21, 25, -22, 19, -9, -14,83, -239},
{55, -34, 41, -37, 34, -25, -1, 62, -239, 659},
{89, -55, 67, -61, 59, -49, 25, 41, -205, 659, -1781}

Mathematica

M = Inverse[{{0, 1}, {1, 1}}];
a = Table[(MatrixPower[M, n].{1, 0})[[1]], {n, -30, 30}];
Table[Table[(MatrixPower[M, m].{a[[30 - (n - m + 1)]], a[[30 - (m - 1)]]})[[1]], {m, 0, n}], {n, 0, 10}];
Flatten[%]

Crossrefs

Sequence in context: A287920 A027293 A104762 * A180360 A318805 A175331

Adjacent sequences: A152459 A152460 A152461 * A152463 A152464 A152465

Keyword

tabl,uned,obsc,less,sign

Author

Roger L. Bagula, Dec 05 2008

Status

approved