OFFSET
1,1
MATHEMATICA
Select[Range[22*10^6], AllTrue[3^Range[0, 5] #+1, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Sep 08 2019 *)
PROG
(Magma) [n: n in [1..50000000] |IsPrime(n+1) and IsPrime(3*n+1) and IsPrime(9*n+1) and IsPrime(27*n+1)and IsPrime(81*n+1)and IsPrime(243*n+1)] // Vincenzo Librandi, Nov 13 2010
CROSSREFS
KEYWORD
nonn
AUTHOR
Pierre CAMI, Aug 26 2005
STATUS
approved