A125283 Primes p for which there exists no integer n with 1 < n^2 < p such that n^4 - n^2 + p is prime (i.e., primes that don't arise as q's in A126769).
2, 3, 13, 103, 131
Offset: 1
Crossrefs
Cf. A126769.
Programs
-
Mathematica
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, Mar 01 2007 *)
Comments