OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
EXAMPLE
For n=11, even 8n-9=79 and 8n+9=97 are primes, therefore 11 is in the sequence.
MATHEMATICA
lst={}; Do[p=Prime[n]; If[PrimeQ[8*p-9]&&PrimeQ[8*p+9], AppendTo[lst, p]], {n, 7!}]; lst (* Vladimir Joseph Stephan Orlovsky, Aug 16 2009 *)
Select[Prime[Range[6000]], PrimeQ[8 # - 9] && PrimeQ[8 # + 9] &] (* Vincenzo Librandi, Apr 05 2013 *)
Select[Prime[Range[800]], AllTrue[8#+{9, -9}, PrimeQ]&] (* Harvey P. Dale, Apr 05 2023 *)
PROG
(Magma) [p: p in PrimesUpTo(6000) | IsPrime(8*p-9) and IsPrime(8*p+9)]; // Vincenzo Librandi, Apr 05 2013
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Jan 01 2009
EXTENSIONS
241 replaced by 251 and extended by R. J. Mathar, Jan 07 2009
STATUS
approved