OFFSET
1,1
COMMENTS
Subsequence of A023229. [R. J. Mathar, Aug 26 2009]
Primes of the form A087695(k)/8. [R. J. Mathar, Aug 26 2009]
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
EXAMPLE
For p=2, 8*2-3=13 and 8*2+3=19 are prime numbers, which adds p=2 to the sequence
For p=5, 8*5-3=37 and 8*5+3=43 are prime numbers, which adds p=5 to the sequence.
MATHEMATICA
lst={}; Do[p=Prime[n]; If[PrimeQ[8*p-3]&&PrimeQ[8*p+3], AppendTo[lst, p]], {n, 7!}]; lst
Select[Prime[Range[1000]], And@@PrimeQ/@{8 # + 3, 8 # - 3}&] (* Vincenzo Librandi, Apr 09 2013 *)
Select[Prime[Range[1000]], AllTrue[8#+{3, -3}, PrimeQ]&] (* Harvey P. Dale, May 05 2023 *)
PROG
(Magma) [p: p in PrimesUpTo(3000) | IsPrime(8*p-3) and IsPrime(8*p+3)]; // Vincenzo Librandi, Apr 09 2013
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vladimir Joseph Stephan Orlovsky, Aug 16 2009
EXTENSIONS
Comments turned into examples by R. J. Mathar, Aug 26 2009
STATUS
approved