1,1

Joerg Arndt, Fxtbook

Do[ If[ ToString[ Factor[ x^n + x^5 + 1, Modulus -> 2 ] ] == ToString[ x^n + x^5 + 1 ], Print[ n ] ], {n, 0, 900} ]

Cf. A002475.

Sequence in context: A029805 A064417 A131975 this_sequence A077121 A140495 A008810

Adjacent sequences: A057471 A057472 A057473 this_sequence A057475 A057476 A057477

nonn

Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 27 2000