A257000 Characteristic function for A206074.

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

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

(PARI)
A257000(n) = polisirreducible(Pol(binary(n)));
for(n=0, 8191, write("b257000.txt", n, " ", A257000(n)));

Crossrefs

Partial sums: A255574.

Cf. A010051, A091225, A206074, A304751.

Sequence in context: A155899 A284932 A117814 * A062301 A181712 A288729

Adjacent sequences: A256997 A256998 A256999 * A257001 A257002 A257003

Keyword

nonn

Author

Antti Karttunen, May 14 2015

Status

approved