OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
select(t -> isprime(t) and isprime(10*t+3) and isprime(6*t+5), [2, seq(i, i=3..10^4, 2)]); # Robert Israel, Jun 11 2018
MATHEMATICA
Select[Prime@ Range@ 250, AllTrue[{10 # + 3, 6 # + 5}, PrimeQ] &] (* Michael De Vlieger, Jun 11 2018 *)
PROG
(PARI) isok(n) = isprime(n) && isprime(10*n+3) && isprime(6*n+5); \\ Michel Marcus, Oct 11 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Nov 10 2006
STATUS
approved