OFFSET
1,1
COMMENTS
Subsequence of A006512. - Altug Alkan, Mar 27 2016
EXAMPLE
p=19; p-2 = 17 (is prime), p^2-2 = 359 (is prime), p^3-2 = 6857 (is prime).
MATHEMATICA
Select[Prime@ Range@ 42000, Function[k, AllTrue[k^# & /@ Range@ 3 - 2, PrimeQ]]] (* Michael De Vlieger, Mar 27 2016, Version 10 *)
PROG
(PARI) lista(nn) = {forprime(p=5, nn, if(isprime(p-2) && isprime(p^2-2) && isprime(p^3-2), print1(p, ", "))); } \\ Altug Alkan, Mar 27 2016
(Magma) [p: p in PrimesUpTo(500000) | IsPrime(p-2) and IsPrime(p^2-2) and IsPrime(p^3-2)]; // Vincenzo Librandi, Mar 28 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Emre APARI, Mar 27 2016
EXTENSIONS
More terms from Altug Alkan, Mar 27 2016
STATUS
approved