OFFSET
1,1
COMMENTS
For n >= 3, all terms end in 1 or 9. - Robert Israel, Jul 24 2017
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
select(p -> isprime(p) and isprime(4*p-3) and isprime(3*p-4), [2, seq(i, i=3..10000, 2)]); # Robert Israel, Jul 24 2017
MATHEMATICA
Select[Prime@ Range@ 500, Times @@ Boole@ Map[PrimeQ, {4 # - 3, 3 # - 4}] > 0 &] (* Michael De Vlieger, Jul 23 2017 *)
PROG
(PARI) forprime(p=2, 10000, if (isprime(3*p-4) && isprime(4*p-3), print1(p, ", "))) \\ Michel Marcus, Jul 23 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
David James Sycamore, Jul 22 2017
EXTENSIONS
More terms from Michel Marcus, Jul 23 2017
STATUS
approved