|
| |
|
|
A065020
|
|
Coefficients of irreducible polynomials over GF(3) listed in lexicographic order.
|
|
0
| |
|
|
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; refs; listen; history; internal format)
|
|
|
|
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 * A136986 A096109 A136997
Adjacent sequences: A065017 A065018 A065019 * A065021 A065022 A065023
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 01 2001
|
| |
|
|
