login
Primes p such that 3*p-+8 are primes.
1

%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