OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
select(j -> isprime(4*j-1) and isprime(6*j-1) and isprime(12*j-1), [$1..10000]);
MATHEMATICA
Select[Range[3000], And@@PrimeQ/@({4, 6, 12} # - 1) &] (* Vincenzo Librandi, Feb 04 2018 *)
PROG
(Magma) [n: n in [0..3000] |IsPrime(4*n-1) and IsPrime(6*n-1) and IsPrime(12*n-1)]; // Vincenzo Librandi, Feb 04 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert Israel, Feb 04 2018
STATUS
approved