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

Author

Robert G. Wilson v, Nov 01 2001

Keywords

• nonn

Crossrefs

Cf. A058943.

Programs

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} ]