|
Search: id:A065020
|
|
|
| A065020 |
|
Coefficients of irreducible polynomials over GF(3) listed in lexicographic order. |
|
+0
1
|
|
| 2, 11, 12, 20, 101, 112, 122, 200, 1021, 1022, 1102, 1112, 1121, 1201, 1211, 1222, 2000, 10012, 10022, 10102, 10111, 10121, 10202, 11002, 11021, 11101, 11111, 11122, 11222, 12002, 12011, 12101, 12112, 12121, 12212, 20000, 100021, 100022
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
Do[a = Reverse[ IntegerDigits[n, gf]]; b = {0}; l = Length[a]; k = 1; While[k < l + 1, b = Append[b, a[[k]]*x^(k - 1)]; k++ ]; b = Apply[ Plus, b]; c = Factor[b, Modulus -> gf]; If[ !IntegerQ[ Log[ gf, n]] && b == c, Print[ FromDigits[ IntegerDigits[n, gf]]]], {n, 1, 300} ]
|
|
CROSSREFS
|
Cf. A058943.
Sequence in context: A061677 A110126 A125020 this_sequence A136986 A096109 A136997
Adjacent sequences: A065017 A065018 A065019 this_sequence A065021 A065022 A065023
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 01 2001
|
|
|
Search completed in 0.002 seconds
|
