OFFSET
0
LINKS
Antti Karttunen, Table of n, a(n) for n = 0..65537
MATHEMATICA
binPol[n_, x_] := With[{bb = IntegerDigits[n, 2]}, bb.x^Range[Length[bb]-1, 0, -1]];
a[n_] := If[IrreduciblePolynomialQ[binPol[n, x]], 1, 0];
a /@ Range[0, 128] (* Jean-François Alcover, Dec 20 2021 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, May 14 2015
STATUS
approved