This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A164570 #10 May 05 2023 14:56:55
%S A164570 2,5,7,13,47,103,107,127,163,233,293,337,383,433,443,467,503,673,677,
%T A164570 733,797,877,1087,1093,1153,1217,1223,1307,1637,1933,2053,2087,2137,
%U A164570 2423,2477,2543,2633,2687,2857,2917,3163,3373,3407,3467,3767,3793,3877
%N A164570 Primes p such that 8*p-3 and 8*p+3 are also prime numbers.
%C A164570 Subsequence of A023229. [_R. J. Mathar_, Aug 26 2009]
%C A164570 Primes of the form A087695(k)/8. [_R. J. Mathar_, Aug 26 2009]
%H A164570 Vincenzo Librandi, <a href="/A164570/b164570.txt">Table of n, a(n) for n = 1..1000</a>
%e A164570 For p=2, 8*2-3=13 and 8*2+3=19 are prime numbers, which adds p=2 to the sequence
%e A164570 For p=5, 8*5-3=37 and 8*5+3=43 are prime numbers, which adds p=5 to the sequence.
%t A164570 lst={};Do[p=Prime[n];If[PrimeQ[8*p-3]&&PrimeQ[8*p+3],AppendTo[lst,p]], {n,7!}];lst
%t A164570 Select[Prime[Range[1000]], And@@PrimeQ/@{8 # + 3, 8 # - 3}&] (* _Vincenzo Librandi_, Apr 09 2013 *)
%t A164570 Select[Prime[Range[1000]],AllTrue[8#+{3,-3},PrimeQ]&] (* _Harvey P. Dale_, May 05 2023 *)
%o A164570 (Magma) [p: p in PrimesUpTo(3000) | IsPrime(8*p-3) and IsPrime(8*p+3)]; // _Vincenzo Librandi_, Apr 09 2013
%Y A164570 Cf. A023212, A023217, A023224, A023230, A023239, A060212, A106015, A124098, A125272, A127430, A153768, A164566, A164567, A164568, A164569.
%K A164570 nonn,easy
%O A164570 1,1
%A A164570 _Vladimir Joseph Stephan Orlovsky_, Aug 16 2009
%E A164570 Comments turned into examples by _R. J. Mathar_, Aug 26 2009