OFFSET
1,1
COMMENTS
a(n) is the smallest term of A206074 greater than n.
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..21845
MATHEMATICA
binPol[n_, x_] := With[{bb = IntegerDigits[n, 2]}, bb.x^Range[Length[bb]-1, 0, -1]];
b[n_] := If[IrreduciblePolynomialQ[binPol[n, x]], 1, 0];
a[n_] := Module[{k = n+1}, While[b[k] == 0, k++]; k];
Array[a, 100] (* Jean-François Alcover, Dec 20 2021 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jun 07 2018
STATUS
approved