OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
MATHEMATICA
lst={}; Do[p=Prime[n]; If[PrimeQ[9*p+8], AppendTo[lst, p]], {n, 6!}]; lst (* Vladimir Joseph Stephan Orlovsky, Mar 10 2009 *)
Select[Prime[Range[900]], PrimeQ[9 # + 8] &] (* Vincenzo Librandi, May 21 2014 *)
PROG
(Magma) [n: n in [0..1000] | IsPrime(n) and IsPrime(9*n+8)]; // Vincenzo Librandi, Nov 20 2010
(PARI) is(n)=isprime(9*n+8) && isprime(n) \\ Charles R Greathouse IV, Jul 02 2013
(Magma) [p: p in PrimesUpTo(1100)| IsPrime(9*p+8)]; // Vincenzo Librandi, May 21 2014
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
STATUS
approved