/* This code can be loaded, or copied and paste using cpaste, into Sage. It will load the data associated to the HMF, including the field, level, and Hecke and Atkin-Lehner eigenvalue data. */ P. = PolynomialRing(QQ) g = P([41, 9, -14, -1, 1]) F. = NumberField(g) ZF = F.ring_of_integers() NN = ZF.ideal([16, 4, -1/6*w^3 + 1/3*w + 5/6]) primes_array = [ [4, 2, 1/6*w^3 - 7/3*w - 17/6],\ [4, 2, w - 3],\ [5, 5, -1/6*w^3 + w^2 + 1/3*w - 25/6],\ [9, 3, 1/6*w^3 - 7/3*w + 13/6],\ [9, 3, -w - 2],\ [11, 11, -1/6*w^3 + 7/3*w + 11/6],\ [11, 11, -w + 2],\ [41, 41, -w],\ [41, 41, 1/6*w^3 - 7/3*w + 1/6],\ [59, 59, -1/6*w^3 + 1/3*w + 23/6],\ [59, 59, -1/3*w^3 + 11/3*w + 11/3],\ [61, 61, -5/3*w^3 - 3*w^2 + 46/3*w + 79/3],\ [61, 61, 5/6*w^3 + w^2 - 23/3*w - 55/6],\ [61, 61, w^3 + 2*w^2 - 9*w - 17],\ [61, 61, -1/6*w^3 + 10/3*w + 35/6],\ [71, 71, -1/2*w^3 + 2*w^2 + 4*w - 33/2],\ [71, 71, 1/6*w^3 - w^2 - 4/3*w + 67/6],\ [79, 79, 1/2*w^3 - 3*w + 1/2],\ [79, 79, -2/3*w^3 + 19/3*w - 2/3],\ [89, 89, 1/2*w^3 + w^2 - 5*w - 15/2],\ [89, 89, 1/3*w^3 - 11/3*w + 7/3],\ [101, 101, -5/6*w^3 - w^2 + 23/3*w + 61/6],\ [101, 101, 1/2*w^3 - w^2 - 3*w + 9/2],\ [109, 109, 1/2*w^3 - w^2 - 4*w + 11/2],\ [109, 109, -2/3*w^3 - w^2 + 16/3*w + 28/3],\ [121, 11, -1/2*w^3 + 4*w + 1/2],\ [131, 131, 2*w - 7],\ [131, 131, -7/6*w^3 - 2*w^2 + 28/3*w + 89/6],\ [139, 139, -1/6*w^3 + w^2 + 4/3*w - 31/6],\ [139, 139, 1/3*w^3 + w^2 - 8/3*w - 29/3],\ [149, 149, 1/6*w^3 - 2*w^2 + 5/3*w + 37/6],\ [151, 151, -7/6*w^3 + 3*w^2 + 28/3*w - 133/6],\ [151, 151, 5/3*w^3 + 3*w^2 - 40/3*w - 67/3],\ [169, 13, -1/6*w^3 - 2/3*w + 29/6],\ [169, 13, 7/6*w^3 - 4*w^2 - 19/3*w + 139/6],\ [181, 181, -2/3*w^3 + 13/3*w + 10/3],\ [181, 181, 5/6*w^3 - 23/3*w - 19/6],\ [191, 191, 5/6*w^3 + w^2 - 32/3*w - 97/6],\ [191, 191, w^3 - 9*w - 5],\ [191, 191, -w^2 + 4*w - 2],\ [191, 191, 5/6*w^3 + w^2 - 17/3*w - 43/6],\ [199, 199, 1/2*w^3 - 2*w - 7/2],\ [199, 199, 7/6*w^3 - 5*w^2 - 7/3*w + 109/6],\ [211, 211, -1/6*w^3 + w^2 + 7/3*w - 79/6],\ [211, 211, 1/2*w^3 + 2*w^2 - 6*w - 37/2],\ [229, 229, -1/2*w^3 + 5*w - 5/2],\ [229, 229, 1/2*w^3 - 2*w^2 - 2*w + 23/2],\ [229, 229, 1/6*w^3 + w^2 - 10/3*w - 53/6],\ [229, 229, -7/6*w^3 - 2*w^2 + 34/3*w + 107/6],\ [239, 239, 2*w^3 + 3*w^2 - 22*w - 36],\ [239, 239, -7/3*w^3 - 3*w^2 + 74/3*w + 113/3],\ [241, 241, -1/3*w^3 - w^2 + 2/3*w + 11/3],\ [241, 241, -1/2*w^3 + w^2 + 6*w - 23/2],\ [271, 271, -5/6*w^3 - w^2 + 20/3*w + 49/6],\ [271, 271, 1/6*w^3 - 1/3*w - 35/6],\ [281, 281, -1/6*w^3 - w^2 + 7/3*w + 11/6],\ [281, 281, -w^3 + 9*w - 1],\ [281, 281, -1/2*w^3 + 8*w + 19/2],\ [281, 281, w^3 - 4*w^2 - 4*w + 20],\ [311, 311, 2*w^2 - 13],\ [311, 311, -1/3*w^3 - 2*w^2 + 8/3*w + 50/3],\ [331, 331, 1/2*w^3 + w^2 - 4*w - 5/2],\ [331, 331, -1/2*w^3 - w^2 + 5*w + 27/2],\ [331, 331, 1/6*w^3 - 2*w^2 + 2/3*w + 73/6],\ [331, 331, 5/6*w^3 + 2*w^2 - 26/3*w - 103/6],\ [349, 349, -1/2*w^3 - w^2 + 4*w + 21/2],\ [349, 349, 1/6*w^3 + w^2 - 1/3*w - 59/6],\ [361, 19, 2/3*w^3 - 16/3*w - 7/3],\ [361, 19, 1/6*w^3 - 4/3*w - 29/6],\ [379, 379, 1/6*w^3 + w^2 - 10/3*w - 17/6],\ [379, 379, -5/6*w^3 - 2*w^2 + 23/3*w + 115/6],\ [379, 379, -1/3*w^3 + 2*w^2 + 5/3*w - 31/3],\ [379, 379, 1/3*w^3 + w^2 - 14/3*w - 35/3],\ [389, 389, -1/3*w^3 + 2/3*w + 14/3],\ [389, 389, 1/2*w^3 + 2*w^2 - 4*w - 35/2],\ [401, 401, 1/3*w^3 + 2*w^2 - 14/3*w - 38/3],\ [401, 401, 5/6*w^3 - 4*w^2 - 5/3*w + 101/6],\ [401, 401, -1/3*w^3 - 2*w^2 + 14/3*w + 50/3],\ [401, 401, -5/6*w^3 + 2*w^2 + 5/3*w - 29/6],\ [409, 409, -1/2*w^3 + 6*w - 7/2],\ [409, 409, 5/6*w^3 + 2*w^2 - 26/3*w - 91/6],\ [439, 439, 1/3*w^3 + 2*w^2 - 14/3*w - 32/3],\ [439, 439, 1/3*w^3 + 2*w^2 - 14/3*w - 56/3],\ [449, 449, -11/6*w^3 - 3*w^2 + 47/3*w + 157/6],\ [449, 449, -7/6*w^3 + 3*w^2 + 25/3*w - 109/6],\ [461, 461, 1/6*w^3 + 2*w^2 - 4/3*w - 77/6],\ [461, 461, 2/3*w^3 + 2*w^2 - 22/3*w - 55/3],\ [479, 479, 2/3*w^3 - 2*w^2 - 13/3*w + 32/3],\ [479, 479, -7/6*w^3 - 2*w^2 + 31/3*w + 113/6],\ [491, 491, 1/3*w^3 + 2*w^2 - 11/3*w - 35/3],\ [491, 491, 1/6*w^3 + 2*w^2 - 7/3*w - 107/6],\ [499, 499, 4/3*w^3 + 2*w^2 - 38/3*w - 53/3],\ [499, 499, 5/6*w^3 - 4*w^2 - 2/3*w + 101/6],\ [509, 509, -2/3*w^3 + 31/3*w + 40/3],\ [509, 509, 1/6*w^3 - 19/3*w + 85/6],\ [521, 521, -2/3*w^3 - 2*w^2 + 19/3*w + 52/3],\ [521, 521, -w^2 - 2*w + 10],\ [529, 23, -1/3*w^3 + 2*w^2 + 5/3*w - 49/3],\ [529, 23, 5/6*w^3 + 2*w^2 - 23/3*w - 79/6],\ [541, 541, -1/6*w^3 + 10/3*w - 13/6],\ [541, 541, 1/6*w^3 - 10/3*w - 11/6],\ [569, 569, 1/2*w^3 + w^2 - 5*w - 9/2],\ [569, 569, -1/6*w^3 + w^2 + 1/3*w - 61/6],\ [599, 599, 1/6*w^3 + w^2 - 1/3*w - 65/6],\ [599, 599, -1/6*w^3 + w^2 + 7/3*w - 25/6],\ [619, 619, 7/2*w^3 + 6*w^2 - 33*w - 113/2],\ [619, 619, -7/6*w^3 - 2*w^2 + 31/3*w + 89/6],\ [631, 631, -1/2*w^3 + 3*w^2 + w - 29/2],\ [631, 631, -1/6*w^3 + w^2 - 8/3*w + 29/6],\ [631, 631, -2/3*w^3 + 25/3*w + 16/3],\ [631, 631, -11/6*w^3 - 3*w^2 + 47/3*w + 145/6],\ [659, 659, 5/6*w^3 - 3*w^2 - 20/3*w + 155/6],\ [659, 659, 7/6*w^3 - 2*w^2 - 16/3*w + 49/6],\ [659, 659, -7/6*w^3 + 34/3*w + 29/6],\ [659, 659, -5/6*w^3 + w^2 + 14/3*w - 35/6],\ [661, 661, 1/3*w^3 - 20/3*w + 28/3],\ [661, 661, 1/3*w^3 - 20/3*w - 26/3],\ [691, 691, 1/2*w^3 + 2*w^2 - 5*w - 35/2],\ [691, 691, 2*w^2 - 15],\ [691, 691, 1/2*w^3 + 2*w^2 - 6*w - 31/2],\ [691, 691, 2*w^2 - w - 12],\ [701, 701, 1/3*w^3 + 2*w^2 - 11/3*w - 53/3],\ [701, 701, 1/6*w^3 + 2*w^2 - 7/3*w - 71/6],\ [709, 709, -11/6*w^3 - 3*w^2 + 50/3*w + 151/6],\ [709, 709, 7/6*w^3 + w^2 - 25/3*w - 71/6],\ [709, 709, 7/6*w^3 - w^2 - 31/3*w + 19/6],\ [709, 709, 13/6*w^3 + 4*w^2 - 58/3*w - 209/6],\ [739, 739, 7/6*w^3 - 4*w^2 - 28/3*w + 199/6],\ [739, 739, 5/3*w^3 - 5*w^2 - 40/3*w + 119/3],\ [739, 739, 5/6*w^3 - 4*w^2 - 8/3*w + 107/6],\ [739, 739, -5/6*w^3 + w^2 + 26/3*w - 35/6],\ [809, 809, 11/6*w^3 + 3*w^2 - 56/3*w - 175/6],\ [809, 809, -5/6*w^3 + 2*w^2 + 17/3*w - 89/6],\ [809, 809, -4/3*w^3 + 4*w^2 + 14/3*w - 49/3],\ [809, 809, -5/6*w^3 + w^2 + 11/3*w - 23/6],\ [811, 811, -1/3*w^3 + 17/3*w + 17/3],\ [811, 811, -1/6*w^3 + 13/3*w - 37/6],\ [821, 821, w^3 - w^2 - 8*w + 3],\ [821, 821, -2*w^3 - 3*w^2 + 18*w + 28],\ [821, 821, 7/6*w^3 + w^2 - 28/3*w - 71/6],\ [821, 821, 1/2*w^3 - w^2 - 7*w + 35/2],\ [829, 829, 5/6*w^3 + w^2 - 20/3*w - 73/6],\ [829, 829, 1/6*w^3 + w^2 - 1/3*w - 71/6],\ [839, 839, 1/2*w^3 - 10*w + 33/2],\ [839, 839, 1/2*w^3 - 10*w - 31/2],\ [841, 29, 5/6*w^3 - 20/3*w - 19/6],\ [841, 29, 1/6*w^3 - 4/3*w - 35/6],\ [859, 859, -1/6*w^3 + 2*w^2 + 7/3*w - 121/6],\ [859, 859, -2*w^3 - 4*w^2 + 16*w + 27],\ [859, 859, 1/2*w^3 - w^2 - 4*w - 1/2],\ [859, 859, 4/3*w^3 - 4*w^2 - 32/3*w + 97/3],\ [881, 881, -5/6*w^3 + w^2 + 14/3*w - 11/6],\ [881, 881, 4/3*w^3 + w^2 - 38/3*w - 38/3],\ [911, 911, 2*w^2 - 3*w - 4],\ [911, 911, -2/3*w^3 + 19/3*w - 20/3],\ [911, 911, 2/3*w^3 + w^2 - 22/3*w - 46/3],\ [911, 911, -2/3*w^3 + 4*w^2 - 2/3*w - 35/3],\ [919, 919, -1/6*w^3 + 3*w^2 - 11/3*w - 43/6],\ [919, 919, -13/6*w^3 - 4*w^2 + 55/3*w + 179/6],\ [919, 919, 5/6*w^3 - 2*w^2 - 8/3*w + 47/6],\ [919, 919, 4/3*w^3 - 4*w^2 - 29/3*w + 88/3],\ [929, 929, -7/6*w^3 + 3*w^2 + 10/3*w - 61/6],\ [929, 929, -1/2*w^3 + 2*w^2 + 4*w - 25/2],\ [929, 929, -2/3*w^3 + 22/3*w + 19/3],\ [929, 929, 2*w^2 - 4*w - 3],\ [961, 31, 5/6*w^3 - 20/3*w - 13/6],\ [961, 31, -5/6*w^3 + 20/3*w + 7/6],\ [971, 971, -7/6*w^3 + 6*w^2 + 4/3*w - 139/6],\ [971, 971, -2/3*w^3 + 2*w^2 + 1/3*w - 14/3],\ [991, 991, 7/3*w^3 + 4*w^2 - 59/3*w - 95/3],\ [991, 991, -1/6*w^3 + w^2 - 11/3*w + 47/6],\ [1009, 1009, -7/6*w^3 - w^2 + 31/3*w + 35/6],\ [1009, 1009, -5/6*w^3 + w^2 + 17/3*w - 53/6],\ [1021, 1021, -11/6*w^3 - 3*w^2 + 44/3*w + 139/6],\ [1021, 1021, 4/3*w^3 - 3*w^2 - 32/3*w + 64/3],\ [1021, 1021, -w^3 + 11*w + 3],\ [1021, 1021, 1/2*w^3 - w - 7/2],\ [1031, 1031, -w^3 + 6*w + 2],\ [1031, 1031, 4/3*w^3 - 38/3*w - 5/3],\ [1049, 1049, -w^3 + 4*w^2 + 3*w - 19],\ [1049, 1049, -5/2*w^3 - 4*w^2 + 25*w + 79/2],\ [1049, 1049, -2*w^3 - 4*w^2 + 18*w + 31],\ [1049, 1049, -w^3 + 4*w^2 + 6*w - 28],\ [1051, 1051, -3/2*w^3 - 2*w^2 + 13*w + 33/2],\ [1051, 1051, 1/6*w^3 - w^2 + 5/3*w - 17/6],\ [1061, 1061, 7/6*w^3 - 5*w^2 - 13/3*w + 157/6],\ [1061, 1061, -1/2*w^3 + 9*w + 23/2],\ [1091, 1091, -4/3*w^3 + 2*w^2 + 17/3*w - 16/3],\ [1091, 1091, -1/6*w^3 + 2*w^2 - 8/3*w - 13/6],\ [1109, 1109, -1/6*w^3 + 2*w^2 - 2/3*w - 91/6],\ [1109, 1109, -5/6*w^3 - 2*w^2 + 26/3*w + 85/6],\ [1151, 1151, -1/2*w^3 + 5*w - 13/2],\ [1151, 1151, -7/6*w^3 - w^2 + 31/3*w + 59/6],\ [1171, 1171, 5/6*w^3 - w^2 - 17/3*w + 23/6],\ [1171, 1171, 7/6*w^3 + w^2 - 31/3*w - 65/6],\ [1181, 1181, w^2 - 6*w + 10],\ [1181, 1181, -7/6*w^3 - w^2 + 46/3*w + 143/6],\ [1229, 1229, -5/3*w^3 - 3*w^2 + 46/3*w + 73/3],\ [1229, 1229, 1/6*w^3 - w^2 - 13/3*w + 109/6],\ [1229, 1229, 5/6*w^3 - 3*w^2 - 14/3*w + 119/6],\ [1229, 1229, -1/6*w^3 + w^2 + 13/3*w + 17/6],\ [1231, 1231, -2/3*w^3 + 25/3*w - 8/3],\ [1231, 1231, -1/6*w^3 - 5/3*w - 13/6],\ [1231, 1231, 1/2*w^3 - w - 3/2],\ [1231, 1231, w^3 - 11*w - 1],\ [1249, 1249, 1/3*w^3 + 3*w^2 - 14/3*w - 89/3],\ [1249, 1249, 7/6*w^3 - 2*w^2 - 25/3*w + 43/6],\ [1279, 1279, -17/6*w^3 - 5*w^2 + 80/3*w + 265/6],\ [1279, 1279, 4/3*w^3 - 5*w^2 - 20/3*w + 88/3],\ [1289, 1289, 5/6*w^3 + 2*w^2 - 23/3*w - 127/6],\ [1289, 1289, 1/2*w^3 + w^2 - 2*w - 21/2],\ [1291, 1291, -1/3*w^3 + 26/3*w - 46/3],\ [1291, 1291, -2/3*w^3 + 34/3*w + 43/3],\ [1301, 1301, 19/6*w^3 + 5*w^2 - 88/3*w - 275/6],\ [1301, 1301, -5/3*w^3 + 5*w^2 + 28/3*w - 83/3],\ [1321, 1321, -2*w^3 - 4*w^2 + 19*w + 34],\ [1321, 1321, -7/6*w^3 + 2*w^2 + 28/3*w - 97/6],\ [1321, 1321, 5/3*w^3 + 2*w^2 - 46/3*w - 64/3],\ [1321, 1321, 5/6*w^3 - 4*w^2 - 11/3*w + 149/6],\ [1381, 1381, -7/6*w^3 - 3*w^2 + 34/3*w + 167/6],\ [1381, 1381, 1/3*w^3 - 3*w^2 - 2/3*w + 49/3],\ [1399, 1399, 7/6*w^3 - 4*w^2 - 22/3*w + 163/6],\ [1399, 1399, 13/6*w^3 + 4*w^2 - 58/3*w - 191/6],\ [1409, 1409, -3/2*w^3 + 4*w^2 + 10*w - 45/2],\ [1409, 1409, 2*w^2 - 9],\ [1409, 1409, -5/2*w^3 - 4*w^2 + 22*w + 73/2],\ [1409, 1409, 1/3*w^3 + 2*w^2 - 8/3*w - 62/3],\ [1439, 1439, 7/6*w^3 - 37/3*w + 7/6],\ [1439, 1439, -1/2*w^3 - 3*w^2 + 7*w + 33/2],\ [1459, 1459, 2*w^2 - 2*w - 17],\ [1459, 1459, -5/6*w^3 + 26/3*w + 55/6],\ [1459, 1459, 2/3*w^3 + 2*w^2 - 22/3*w - 37/3],\ [1459, 1459, -1/2*w^3 + 2*w + 19/2],\ [1511, 1511, 3/2*w^3 - 6*w^2 - 8*w + 75/2],\ [1511, 1511, -19/6*w^3 - 6*w^2 + 88/3*w + 305/6],\ [1531, 1531, 5/2*w^3 + 3*w^2 - 29*w - 87/2],\ [1531, 1531, -13/6*w^3 - 3*w^2 + 61/3*w + 179/6],\ [1549, 1549, 1/2*w^3 + 2*w^2 - 6*w - 21/2],\ [1549, 1549, w^3 - 10*w + 2],\ [1579, 1579, -1/2*w^3 + w^2 + 3*w - 21/2],\ [1579, 1579, 5/6*w^3 + w^2 - 23/3*w - 25/6],\ [1601, 1601, 1/3*w^3 + w^2 - 20/3*w - 5/3],\ [1601, 1601, -7/6*w^3 - 3*w^2 + 31/3*w + 131/6],\ [1609, 1609, 5/6*w^3 - w^2 - 23/3*w + 23/6],\ [1609, 1609, -11/6*w^3 - 3*w^2 + 50/3*w + 175/6],\ [1609, 1609, -5/6*w^3 - w^2 + 17/3*w + 67/6],\ [1609, 1609, -w^3 + 3*w^2 + 6*w - 15],\ [1619, 1619, 1/3*w^3 + 2*w^2 - 5/3*w - 53/3],\ [1619, 1619, 2/3*w^3 - w^2 - 16/3*w + 2/3],\ [1619, 1619, 3/2*w^3 + 2*w^2 - 12*w - 39/2],\ [1619, 1619, 1/3*w^3 - 2*w^2 - 14/3*w + 70/3],\ [1621, 1621, 1/6*w^3 + 3*w^2 - 4/3*w - 113/6],\ [1621, 1621, -1/3*w^3 - 3*w^2 + 8/3*w + 77/3],\ [1681, 41, w^3 - 8*w - 4],\ [1699, 1699, 5/6*w^3 + w^2 - 29/3*w - 37/6],\ [1699, 1699, -1/6*w^3 + w^2 - 5/3*w - 49/6],\ [1709, 1709, -1/6*w^3 - 2*w^2 + 13/3*w + 35/6],\ [1709, 1709, -3/2*w^3 - w^2 + 14*w + 15/2],\ [1721, 1721, -5/6*w^3 - w^2 + 35/3*w + 103/6],\ [1721, 1721, 5/3*w^3 + 2*w^2 - 43/3*w - 61/3],\ [1721, 1721, -7/6*w^3 + 2*w^2 + 25/3*w - 55/6],\ [1721, 1721, -1/6*w^3 - w^2 + 19/3*w - 19/6],\ [1741, 1741, 1/6*w^3 - 3*w^2 + 5/3*w + 115/6],\ [1741, 1741, -1/2*w^3 + 4*w^2 - w - 25/2],\ [1741, 1741, 7/6*w^3 + 3*w^2 - 37/3*w - 149/6],\ [1741, 1741, -11/6*w^3 + 6*w^2 + 17/3*w - 131/6],\ [1789, 1789, 1/6*w^3 - w^2 - 13/3*w + 103/6],\ [1789, 1789, w^3 + 2*w^2 - 8*w - 18],\ [1789, 1789, -2*w^3 - 3*w^2 + 18*w + 30],\ [1789, 1789, -2/3*w^3 + 2*w^2 + 16/3*w - 35/3],\ [1801, 1801, -7/6*w^3 - w^2 + 28/3*w + 47/6],\ [1801, 1801, -w^3 + w^2 + 8*w - 7],\ [1811, 1811, 4/3*w^3 - 29/3*w - 26/3],\ [1811, 1811, -7/6*w^3 + w^2 + 31/3*w - 43/6],\ [1831, 1831, -1/3*w^3 + 2/3*w + 32/3],\ [1831, 1831, -3/2*w^3 - 2*w^2 + 12*w + 33/2],\ [1849, 43, -7/6*w^3 - 2*w^2 + 31/3*w + 125/6],\ [1849, 43, -1/2*w^3 + 3*w^2 + 5*w - 43/2],\ [1871, 1871, -3/2*w^3 - 2*w^2 + 12*w + 29/2],\ [1871, 1871, 7/6*w^3 - 2*w^2 - 28/3*w + 91/6],\ [1879, 1879, 3/2*w^3 + 3*w^2 - 13*w - 53/2],\ [1879, 1879, -5/6*w^3 + 3*w^2 + 17/3*w - 107/6],\ [1889, 1889, -1/2*w^3 - w^2 + 6*w + 5/2],\ [1889, 1889, w^2 - 2*w - 12],\ [1901, 1901, w^2 + 2*w + 2],\ [1901, 1901, 1/2*w^3 - 3*w^2 + w + 13/2],\ [1901, 1901, -1/6*w^3 + 4*w^2 - 11/3*w - 73/6],\ [1901, 1901, 1/6*w^3 - w^2 - 10/3*w + 103/6],\ [1931, 1931, 7/6*w^3 - w^2 - 28/3*w + 13/6],\ [1931, 1931, 4/3*w^3 + w^2 - 32/3*w - 38/3],\ [1931, 1931, -7/6*w^3 - 3*w^2 + 31/3*w + 137/6],\ [1931, 1931, 1/2*w^3 - 3*w^2 - 3*w + 43/2],\ [1949, 1949, 4/3*w^3 - 3*w^2 - 32/3*w + 58/3],\ [1949, 1949, 11/6*w^3 + 3*w^2 - 44/3*w - 151/6],\ [1951, 1951, 11/6*w^3 - 5*w^2 - 20/3*w + 113/6],\ [1951, 1951, -4/3*w^3 + 26/3*w - 1/3],\ [1999, 1999, -1/6*w^3 + 3*w^2 - 2/3*w - 151/6],\ [1999, 1999, 1/2*w^3 + 2*w^2 - 4*w - 49/2]] primes = [ZF.ideal(I) for I in primes_array] heckePol = x^4 - 10*x^2 + 4 K. = NumberField(heckePol) hecke_eigenvalues_array = [0, e, -1/2*e^3 + 5*e, 1/2*e^3 - 4*e, -1/2*e^3 + 4*e, 1/2*e^2, 1/2*e^2, -3/2*e^2 + 13, -1/2*e^2 + 5, -e^3 + 7*e, -e, 3/2*e^2 - 3, 1/2*e^2 - 7, 1/2*e^2, 5/2*e^2 - 10, -3/2*e^2 + 16, 1/2*e^2 - 6, -1/2*e^3 + 2*e, 1/2*e^3 - 6*e, -5/2*e^3 + 25*e, 1/2*e^3 - 5*e, 3/2*e^2 - 1, -1/2*e^2 + 3, -e^3 + 10*e, e^3 - 12*e, -2*e^2 + 8, -5/2*e^2 + 7, -1/2*e^2 + 15, -7/2*e^3 + 35*e, -1/2*e^3 - e, 2*e^3 - 14*e, -3/2*e^2 + 17, -1/2*e^2 - 3, -2*e^3 + 11*e, 4*e^3 - 37*e, -1/2*e^2 - 14, -1/2*e^2 + 10, 1/2*e^2 + 1, -3/2*e^2 - 5, -1/2*e^2 + 9, -3/2*e^2 + 7, -4*e^3 + 31*e, 2*e^3 - 11*e, 18, 2*e^2 - 10, 3/2*e^3 - 20*e, -7/2*e^3 + 42*e, 3/2*e^3 - 20*e, -9/2*e^3 + 38*e, -4*e^3 + 38*e, e^3 - 14*e, -3/2*e^2 + 9, -1/2*e^2 + 1, -2*e^2 + 14, 2*e^2 + 6, -5*e^2 + 26, -e^2 - 6, 7/2*e^2 - 30, -9/2*e^2 + 28, 1/2*e^2 + 27, 1/2*e^2 + 3, -9/2*e^2 + 30, -5/2*e^2 + 20, -1/2*e^2 + 6, 7/2*e^2 - 14, 9/2*e^3 - 32*e, 5/2*e^3 - 28*e, 1/2*e^2 - 14, 5/2*e^2, -7/2*e^3 + 24*e, 3/2*e^3 - 8*e, 3/2*e^3 - 8*e, -13/2*e^3 + 54*e, -e^3 + 7*e, -4*e^3 + 49*e, -3/2*e^2 - 17, -1/2*e^2 + 3, 9/2*e^2 - 17, 3/2*e^2 + 23, -6*e^3 + 62*e, 6*e^3 - 46*e, 5/2*e^3 - 31*e, -1/2*e^3 + 17*e, 3/2*e^3 - 14*e, 9/2*e^3 - 32*e, -1/2*e^2 - 4, 7/2*e^2 - 36, 3/2*e^3 - 22*e, -3/2*e^3 + 14*e, e^2 + 6, e^2 - 18, -5/2*e^3 + 19*e, 3/2*e^3 - 19*e, -e^3 + 4*e, -5*e^3 + 54*e, -9/2*e^2 + 26, 3/2*e^2 + 14, 3*e^3 - 25*e, 2*e^3 - 23*e, -1/2*e^2 - 38, 11/2*e^2 - 38, 7/2*e^3 - 32*e, 9/2*e^3 - 52*e, 11/2*e^3 - 43*e, -9/2*e^3 + 37*e, -1/2*e^3 + 14*e, 5/2*e^3 - 28*e, 1/2*e^2 - 8, -3/2*e^2 + 9, 5/2*e^2, -13/2*e^2 + 49, 0, 6*e^3 - 44*e, -e^3 + 26*e, 3*e^3 - 20*e, 11/2*e^2 - 48, -13/2*e^2 + 30, -17/2*e^2 + 39, -2*e^2 + 46, -4*e^2 + 26, -19/2*e^2 + 47, -7/2*e^2 + 42, 1/2*e^2 + 40, 7*e^3 - 79*e, 9/2*e^3 - 44*e, -3/2*e^3 + 10*e, -7*e^3 + 51*e, -5*e^3 + 39*e, 17/2*e^3 - 72*e, -3/2*e^3 + 26*e, 4*e^3 - 33*e, -11/2*e^3 + 52*e, 7/2*e^3 - 44*e, 4*e^3 - 55*e, -3*e^3 + 37*e, -3/2*e^2 + 2, 5/2*e^2 - 24, -1/2*e^2 + 6, 2*e^2 - 24, -1/2*e^2, 4*e^2 - 4, -15/2*e^3 + 73*e, 11/2*e^3 - 37*e, 5/2*e^3 - 20*e, -11/2*e^3 + 62*e, -1/2*e^2 - 13, 1/2*e^2 - 18, 5*e, -e^3 + 7*e, -10*e^3 + 85*e, 5*e^3 - 59*e, -1/2*e^2 - 28, -17/2*e^2 + 54, 21/2*e^2 - 50, -3/2*e^2 + 26, 9/2*e^2 - 4, -11/2*e^2 + 18, 13/2*e^3 - 68*e, 5*e^3 - 53*e, 21/2*e^3 - 94*e, -e^3 + 13*e, -4*e^3 + 32*e, 3*e^3 - 32*e, 8*e^3 - 60*e, -7*e^3 + 74*e, 4*e^2 - 48, 2*e^2 - 50, -9*e^2 + 32, e^2 + 36, -13/2*e^2 + 25, 3/2*e^2 + 33, -5/2*e^3 + 18*e, -21/2*e^3 + 88*e, -17/2*e^2 + 21, 7/2*e^2 + 9, 1/2*e^2 + 9, 1/2*e^2 + 45, 7/2*e^2 - 51, 11/2*e^2 - 31, -9/2*e^3 + 39*e, 5/2*e^3 - 17*e, 6*e^3 - 42*e, -9*e^3 + 84*e, -9/2*e^2 + 32, -13/2*e^2 + 42, 5/2*e^2 - 25, 5/2*e^2 - 37, 17/2*e^2 - 39, -11/2*e^2 + 37, 17/2*e^3 - 74*e, 13/2*e^3 - 58*e, 1/2*e^2 - 47, 13/2*e^2 - 35, -7/2*e^2 + 17, -7/2*e^2 + 41, -5/2*e^2 + 30, 7/2*e^2 - 24, 2*e^3 - 2*e, -10*e^3 + 101*e, -7*e^3 + 82*e, e^3 - 11*e, 5/2*e^2 - 39, 5/2*e^2 - 3, 1/2*e^2 + 24, 17/2*e^2 - 46, 3/2*e^3 - 31*e, 17/2*e^3 - 81*e, -5/2*e^3 + 34*e, -3/2*e^3 + 8*e, 10*e, 3*e^3 - 38*e, -e^2 + 10, -7*e^2 + 10, 3/2*e^2 - 11, 9/2*e^2 - 35, 9/2*e^2 - 15, 7/2*e^2 - 22, 3/2*e^2 - 24, -5/2*e^2 + 17, 7*e^2 - 68, 3*e^2 - 12, 2*e^3 - 29*e, 5*e^3 - 29*e, 9*e^3 - 96*e, 5/2*e^3 - 37*e, 4*e^3 - 50*e, 9/2*e^3 - 41*e, 10*e^3 - 98*e, -8*e^3 + 58*e, 13/2*e^3 - 83*e, -25/2*e^3 + 114*e, -11/2*e^3 + 55*e, -17/2*e^3 + 76*e, -17/2*e^2 + 37, -23/2*e^2 + 49, -5*e^2 + 8, e^2 - 40, -10*e^3 + 96*e, 15*e^3 - 122*e, 12*e^3 - 94*e, 4*e^3 - 54*e, 17/2*e^2 - 36, 9/2*e^2 - 76, -1/2*e^3 + 21*e, 7*e^3 - 76*e, -9/2*e^3 + 47*e, -8*e^3 + 74*e, 21/2*e^3 - 105*e, -21/2*e^3 + 87*e, 19/2*e^3 - 101*e, 23/2*e^3 - 117*e, -5/2*e^2 - 12, 11/2*e^2 - 64, -2*e^2 + 8, 9/2*e^3 - 40*e, -15/2*e^3 + 68*e, 7*e^3 - 71*e, 8*e^3 - 85*e, 11/2*e^2 - 61, -9/2*e^2 + 58, -9/2*e^2 - 14, 11/2*e^2 - 1, -13/2*e^2 + 3, 17/2*e^2 - 52, -17/2*e^2 + 31, 9/2*e^2 + 16, -7*e^3 + 76*e, -2*e^3 + 2*e, 3*e^3 - 22*e, -6*e^3 + 40*e, 25/2*e^2 - 49, -9/2*e^2 - 33, -3/2*e^2 - 23, -13/2*e^2 + 29, 11/2*e^2 - 35, -25/2*e^2 + 49, 15/2*e^3 - 91*e, 3/2*e^3 - 13*e, 3/2*e^2 - 58, -1/2*e^2 - 6, -5/2*e^3 + e, -5/2*e^3 + e, 17/2*e^3 - 77*e, -3/2*e^3 + 39*e, 5/2*e^2 - 28, -7/2*e^2 - 15, 3/2*e^2 + 41, 5/2*e^2 + 50, 1/2*e^2 + 16, 1/2*e^2 - 8, 15/2*e^2 + 5, -7/2*e^2 + 21, 11/2*e^3 - 29*e, -19/2*e^3 + 73*e, 13/2*e^2 - 70, -27/2*e^2 + 66, -2*e^3 - 4*e, 10*e^3 - 100*e] hecke_eigenvalues = {} for i in range(len(hecke_eigenvalues_array)): hecke_eigenvalues[primes[i]] = hecke_eigenvalues_array[i] AL_eigenvalues = {} AL_eigenvalues[ZF.ideal([4, 2, 1/6*w^3 - 7/3*w - 17/6])] = 1 # EXAMPLE: # pp = ZF.ideal(2).factor()[0][0] # hecke_eigenvalues[pp]