OFFSET
1,1
LINKS
R. J. Mathar, Table of n, a(n) for n = 1..108
MATHEMATICA
Select[Prime[Range[10^6]], PrimeQ[(#^2 + 5) / 6] &&PrimeQ[(#^4 + 5) / 6] &&PrimeQ[(#^8 + 5) / 6] &] (* Vincenzo Librandi, Jan 21 2015 *)
Select[Prime[Range[300000]], AllTrue[({#^2, #^4, #^8}+5)/6, PrimeQ]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jul 15 2021 *)
PROG
(Magma) [p: p in PrimesUpTo(10^7) | IsPrime((p^2+5) div 6) and IsPrime((p^4+5) div 6) and IsPrime((p^8+5) div 6)]; // Vincenzo Librandi, Jan 21 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Jan 20 2015
STATUS
approved