OFFSET
1,1
COMMENTS
Sequence suggested by W. Edwin Clark.
Is this sequence finite?
Next term >= 5*10^7. - Klaus Brockhaus, Mar 15 2007
Next term > 2*10^9. - Jon E. Schoenfield, Apr 06 2018
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 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Tomas Xordan, Feb 25 2007
STATUS
approved