Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A305420
Smallest k > n whose binary expansion encodes an irreducible (0,1)-polynomial over GF(2)[X].
8
2, 3, 7, 7, 7, 7, 11, 11, 11, 11, 13, 13, 19, 19, 19, 19, 19, 19, 25, 25, 25, 25, 25, 25, 31, 31, 31, 31, 31, 31, 37, 37, 37, 37, 37, 37, 41, 41, 41, 41, 47, 47, 47, 47, 47, 47, 55, 55, 55, 55, 55, 55, 55, 55, 59, 59, 59, 59, 61, 61, 67, 67, 67, 67, 67, 67, 73, 73, 73, 73, 73, 73, 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, 87, 91
OFFSET
1,1
COMMENTS
a(n) is the smallest term of A014580 greater than n.
FORMULA
For n >= 1, a(n) = A091228(1+n).
PROG
(PARI)
A091225(n) = polisirreducible(Pol(binary(n))*Mod(1, 2));
A305420(n) = { my(k=1+n); while(!A091225(k), k++); (k); };
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jun 07 2018
STATUS
approved