OFFSET
1,1
LINKS
R. J. Mathar, Table of n, a(n) for n = 1..125
MATHEMATICA
Select[Prime[Range[10^7]], PrimeQ[(#^2 + 5) / 6] &&PrimeQ[(#^4 + 5) / 6] &&PrimeQ[(#^6 + 5) / 6] &] (* Vincenzo Librandi, Jan 21 2015 *)
Select[Prime[Range[3*10^5]], AllTrue[(#^{2, 4, 6}+5)/6, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Mar 10 2016 *)
PROG
(Magma) [p: p in PrimesUpTo(10^7) | IsPrime((p^2+5) div 6) and IsPrime((p^4+5) div 6) and IsPrime((p^6+5) div 6)]; // Vincenzo Librandi, Jan 21 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Jan 20 2015
STATUS
approved