

A116566


Chaotic Matrix Markov based on Ono supersingular polynomial as characteristic function.


1



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

0,3


LINKS

G. C. Greubel, Table of n, a(n) for n = 0..1000
Ken Ono and Scott Ahlgren, Weierstrass points on X0(p) and supersingular jinvariants, Mathematische Annalen 325, 2003, pp. 355368.


MATHEMATICA

M = {{0, 1, 0}, {0, 0, 1}, {899, 930, 60}};
Det[M  IdentityMatrix[3]*x] NSolve[Det[M  IdentityMatrix[3]*x] == 0, x];
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,uned,obsc


AUTHOR

Roger L. Bagula, Mar 17 2006


STATUS

approved



