1,1

Do[If[PrimeQ[x^4 + x^3 - 1], Print[x]], {x, 1, 100}]

Cf. A045546, A125881-A125885.

Adjacent sequences: A125879 A125880 A125881 this_sequence A125883 A125884 A125885

Sequence in context: A116441 A116051 A124593 this_sequence A057758 A057125 A018687

nonn

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