1,1
Do[If[PrimeQ[x^10 + x^9 - 1], Print[x]], {x, 1, 400}]
Cf. A000040, A045546, A125881-A125885, A125965-A125973.
Sequence in context: A007319 A074939 A038464 this_sequence A043001 A103568 A087444
Adjacent sequences: A125963 A125964 A125965 this_sequence A125967 A125968 A125969
nonn
Artur Jasinski (grafix(AT)csl.pl), Dec 14 2006
Search completed in 0.002 seconds