|
MATHEMATICA
|
a = {{ 1, 2, 2}, {2, 2 + j, 3}, {3, 3 + 2j, 7}, {4, 5 + 6j, 23}, {5, 5 + 6j, 29}, {6, 7 + 30j, 157}, {7, 7 + 150j, 907}, {8, 199 + 210j, 1669}, {9, 199 + 210j, 1879}, {10, 199 + 210j, 2089}, {11, 110437 + 13860j, 249037}, {12, 110437 + 13860j, 262897}}
Union[Table[CoefficientList[a[[n, 2]], j][[1]], {n, 1, 12}]]
|