1,1

Do[If[PrimeQ[x^7 + x^6 - 1], Print[x]], {x, 1, 200}]

Cf. A000040, A045546, A125881-A125885.

Sequence in context: A074646 A097001 A085931 this_sequence A067929 A064361 A064407

Adjacent sequences: A125882 A125883 A125884 this_sequence A125886 A125887 A125888

nonn

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