1,1
No other n < 4400 - Michael Somos Mar 12 2007
Do[ If[ ToString[ Factor[x^n + x + 1, Modulus -> 11]] == ToString[x^n + x + 1], Print[n]], {n, 0, 575}]
Sequence in context: A201360 A175760 A080920 * A042683 A177773 A047660
Adjacent sequences: A086335 A086336 A086337 * A086339 A086340 A086341
hard,nonn,more
Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 01 2003