|
| |
|
|
A116566
|
|
Chaotic Matrix Markov based on Ono supersingular polynomial as characteristic function.
|
|
0
| |
|
|
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; internal format)
|
|
|
|
OFFSET
| 0,3
|
|
|
COMMENTS
| This is characteristic polynomial of the paper's example: S37[x] =Mod[Expand[(x + 29)*(x^2 + 31*x + 31)], 37] Roots modulo 37 are: Table[Mod[x /. NSolve[Det[M - IdentityMatrix[3]*x] == 0, x][[n]], 37], {n, 1, 3}] {25.1149, 35.9627, 35.9224}
|
|
|
REFERENCES
| Ken Ono and Scott Ahlgren, Weierstrass points on X0(p) and supersingular j-invariants Mathematiche Annalen 325, 2003, pp. 355-368
|
|
|
FORMULA
| M = {{0, 1, 0}, {0, 0, 1}, {899, 930, 60}} w[0] = {0, 1, 1}; w[n_] := w[n] = M.w[n - 1] a(n) =Mod[w[n][[1]],37]
|
|
|
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] a0 = 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 (rlbagulatftn(AT)yahoo.com), Mar 17 2006
|
| |
|
|
