OFFSET
1,1
LINKS
T. D. Noe, Table of n, a(n) for n=1..206 (through degree 4)
R. Church, Tables of irreducible polynomials for the first four prime moduli, Annals Math., 36 (1935), 198-209. Church's table extends through degree 3.
MATHEMATICA
car = 7; maxDegree = 4;
okQ[coefs_List] := Module[{P}, P = coefs.x^Range[Length[coefs] - 1, 0, -1]; coefs[[1]] == 1 && IrreduciblePolynomialQ[P, Modulus -> car] && PrimitivePolynomialQ[P, car]];
FromDigits /@ Select[Table[IntegerDigits[k, car], {k, car+1, car^(maxDegree + 1)}], okQ] (* Jean-François Alcover, Sep 10 2019 *)
CROSSREFS
KEYWORD
nonn,easy,nice
AUTHOR
N. J. A. Sloane, Jan 13 2001
EXTENSIONS
More terms from Jean Gaumont (jeangaum87(AT)yahoo.com), Apr 16 2006
STATUS
approved