1,2
Table of n, a(n) for n=1..12.
Do[ If[ ToString[ Factor[ x^n + x^6 + 1, Modulus -> 2 ] ] == ToString[ x^n + x^6 + 1 ], Print[ n ] ], {n, 0, 750} ]
Cf. A002475.
Sequence in context: A032496 A002092 A174394 * A016041 A140797 A038893
Adjacent sequences: A057473 A057474 A057475 * A057477 A057478 A057479
nonn
Robert G. Wilson v, Sep 27 2000
approved
