A065020 Coefficients of irreducible polynomials over GF(3) listed in lexicographic order.

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

Offset

1,1

Links

Table of n, a(n) for n=1..38.

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, Nov 01 2001

Status

approved