login
A257000
Characteristic function for A206074.
14
0, 0, 1, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0
OFFSET
0
LINKS
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
(PARI)
A257000(n) = polisirreducible(Pol(binary(n)));
for(n=0, 8191, write("b257000.txt", n, " ", A257000(n)));
CROSSREFS
Partial sums: A255574.
Sequence in context: A155899 A284932 A117814 * A062301 A374769 A181712
KEYWORD
nonn
AUTHOR
Antti Karttunen, May 14 2015
STATUS
approved