A257688 After 1, all numbers that are either primes in Z or whose binary representation encodes a polynomial irreducible over GF(2).
1, 2, 3, 5, 7, 11, 13, 17, 19, 23, 25, 29, 31, 37, 41, 43, 47, 53, 55, 59, 61, 67, 71, 73, 79, 83, 87, 89, 91, 97, 101, 103, 107, 109, 113, 115, 117, 127, 131, 137, 139, 143, 145, 149, 151, 157, 163, 167, 171, 173, 179, 181, 185, 191, 193, 197, 199, 203, 211, 213, 223, 227, 229, 233, 239, 241, 247, 251, 253, 257, 263, 269
Offset: 1
Keywords
Links
Crossrefs
Complement of A091212 (Numbers that are composite in Z and reducible in ring GF(2)[X]).
Programs
-
PARI
isA014580(n) = polisirreducible(Pol(binary(n))*Mod(1,2)); \\ From Charles R Greathouse IV isA257688(n) = ((1 == n) || isprime(n) || isA014580(n)); n = 0; i = 0; while(i < 10000, n++; if(isA257688(n), i++; write("b257688.txt", i, " ", n)));
-
Scheme
;; With Antti Karttunen's IntSeq-library. (define A257688 (MATCHING-POS 1 1 (lambda (n) (or (= 1 n) (= 1 (A091225 n)) (= 1 (A010051 n))))))
Comments