%I #6 Mar 31 2012 12:38:28
%S 5,7,13,17,53,73,83,113,127,157,193,223,277,347,367,433,613,647,673,
%T 743,797,907,937,1117,1217,1373,1427,1483,1543,1597,1637,1667,1877,
%U 1933,2027,2237,2297,2447,2647,2687,2843,3083,3137,3613,3797,4073,4463,4483
%N Primes p such that 3*p-+8 are primes.
%H Vincenzo Librandi, <a href="/A171518/b171518.txt">Table of n, a(n) for n = 1..3000</a>
%e 5 is in the sequence since 3*5-8=7 and 3*5+8=23 are primes.
%t Select[Prime[Range[7! ]],PrimeQ[3*#-8]&&PrimeQ[3*#+8]&]
%Y Cf. A000040, A005382, A005384, A023204-A023207, A063908-A063912, A103803, A124098, A125272, A171517
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Dec 10 2009