1,1

Do[ If[ ToString[ Factor[ x^n + x + 1, Modulus -> 7 ] ] == ToString[ x^n + x + 1 ], Print[ n ] ], {n, 1, 1121} ]

Sequence in context: A038629 A105229 A080849 this_sequence A084715 A015240 A032477

Adjacent sequences: A058854 A058855 A058856 this_sequence A058858 A058859 A058860

nonn

Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 05 2001