OFFSET
1,1
LINKS
K. D. Bajpai, Table of n, a(n) for n = 1..10000
EXAMPLE
a(1) = 37; (37^2 + 2)/3 = 457; (37^4 + 2)/3 = 624721; all three are prime.
MATHEMATICA
Select[Prime[Range[10^4]], PrimeQ[(#^2 + 2)/3] && PrimeQ[(#^4 + 2)/3] &]
PROG
(PARI) forprime(p=1, 10^5, if(!((p^2+2)%3)&&!((p^4+2)%3)&&isprime((p^2+2)/3)&&isprime((p^4+2)/3), print1(p, ", "))) \\ Derek Orr, Apr 16 2015
(Magma) [p: p in PrimesUpTo(5*10^4) | IsPrime((p^2+2) div 3) and IsPrime((p^4+2) div 3 )]; // Vincenzo Librandi, Apr 20 2015
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
K. D. Bajpai, Apr 15 2015
STATUS
approved