|
%I #16 Dec 26 2022 06:08:40
%S 1,1,28,31,13,22,24,28,7,10,18,23,26,23,24,28,18,4,9,18,22,29,13,20,
%T 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,
%U 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
%N Expansion of (-59*x + 1)/(-899*x^3 - 930*x^2 - 60*x + 1), modulo 37.
%H G. C. Greubel, <a href="/A116566/b116566.txt">Table of n, a(n) for n = 0..1000</a>
%t M = {{0, 1, 0}, {0, 0, 1}, {899, 930, 60}};
%t w[0] = {0, 1, 1};
%t w[n_] := w[n] = M.w[n - 1];
%t Table[Mod[w[n][[1]], 37], {n, 1, 50}]
%K nonn,easy,obsc,less
%O 0,3
%A _Roger L. Bagula_, Mar 17 2006
%E Meaningful name from _Joerg Arndt_, Dec 26 2022
|
