OFFSET
1,1
COMMENTS
p is in A158361. - Zak Seidov, Jul 08 2020
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Table[p^4+16, {p, Prime[Range[80]]}], PrimeQ] (* Harvey P. Dale, Jun 17 2014 *)
PROG
(Magma) [a: p in PrimesUpTo(400) | IsPrime(a) where a is p^4+16]; // Vincenzo Librandi, Jun 18 2014
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Labos Elemer, Jun 01 2004
STATUS
approved