1,1

Sequence suggested by W. Edwin Clark (wclark1(AT)tampabay.rr.com).

Is this sequence finite?

Primes not in A126769 are listed in A128292.

fQ[p_] := Block[{r = Rest@Range@Floor@Sqrt@p}, Union@ PrimeQ[r^4 - r^2 + p] == {False}]; lst = {2, 3}; Do[ If[ fQ@ Prime@n, AppendTo[lst, Prime@n]], {n, 3, 10^5}]; lst (* Robert G. Wilson v (rgwv@rgwv.com), Mar 01 2007 *)

Cf. A126769.

Sequence in context: A061912 A013167 A068096 this_sequence A068083 A137459 A072162

Adjacent sequences: A125280 A125281 A125282 this_sequence A125284 A125285 A125286

nonn

Tomas Xordan (xordan.tom(AT)gmail.com), Feb 25 2007

No other terms < 5*10^7. - Klaus Brockhaus (klaus-brockhaus(AT)t-online.de), Mar 15 2007