This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A065020 #2 Mar 30 2012 17:30:36
%S A065020 2,11,12,20,101,112,122,200,1021,1022,1102,1112,1121,1201,1211,1222,
%T A065020 2000,10012,10022,10102,10111,10121,10202,11002,11021,11101,11111,
%U A065020 11122,11222,12002,12011,12101,12112,12121,12212,20000,100021,100022
%N A065020 Coefficients of irreducible polynomials over GF(3) listed in lexicographic order.
%t A065020 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} ]
%Y A065020 Cf. A058943.
%K A065020 nonn
%O A065020 1,1
%A A065020 _Robert G. Wilson v_, Nov 01 2001