OFFSET
1,1
COMMENTS
The next iteration is impossible: t^2 + 4 is divisible by 13.
LINKS
Zak Seidov and Charles R Greathouse IV, Table of n, a(n) for n = 1..250 (first 100 terms from Zak Seidov)
MATHEMATICA
extnd[p_]:=NestList[#^2+4&, p, 4]; #^2+4&/@Select[Prime[ Range[ 452*10^6]], AllTrue[Rest[extnd[#]], PrimeQ]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 06 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Nov 06 2013
EXTENSIONS
Definition corrected by Harvey P. Dale, Jun 06 2021
STATUS
approved