1,1

Do[If[PrimeQ[x^11 + x^10 - 1], Print[x]], {x, 1, 400}]

Cf. A000040, A045546, A125881-A125885, A125965-A125973.

Sequence in context: A074343 A103853 A139202 this_sequence A032394 A063486 A070423

Adjacent sequences: A125965 A125966 A125967 this_sequence A125969 A125970 A125971

nonn

Artur Jasinski (grafix(AT)csl.pl), Dec 14 2006