A116566 Expansion of (-59*x + 1)/(-899*x^3 - 930*x^2 - 60*x + 1), modulo 37.

1, 1, 28, 31, 13, 22, 24, 28, 7, 10, 18, 23, 26, 23, 24, 28, 18, 4, 9, 18, 22, 29, 13, 20, 30, 8, 36, 14, 35, 13, 36, 20, 6, 5, 32, 13, 33, 29, 13, 30, 1, 20, 18, 7, 27, 3, 22, 4, 13, 6, 25, 8, 5, 23, 13, 25, 5, 13, 7, 22, 18, 9, 21, 23, 30, 0, 33, 16, 15, 11, 23, 9, 36, 16, 18, 2, 16, 21, 30, 9, 33, 24, 2, 11

Offset

0,3

Links

G. C. Greubel, Table of n, a(n) for n = 0..1000

Mathematica

M = {{0, 1, 0}, {0, 0, 1}, {899, 930, 60}};
w[0] = {0, 1, 1};
w[n_] := w[n] = M.w[n - 1];
Table[Mod[w[n][[1]], 37], {n, 1, 50}]

Crossrefs

Sequence in context: A054396 A083274 A067913 * A057483 A025367 A121018

Adjacent sequences: A116563 A116564 A116565 * A116567 A116568 A116569

Keyword

nonn,easy,obsc,less

Author

Roger L. Bagula, Mar 17 2006

Extensions

Meaningful name from Joerg Arndt, Dec 26 2022

Status

approved