%I #10 Sep 20 2017 19:33:45
%S 3,7,11,23,31,47,59,67,79,103,127,131,163,191,199,211,263,311,359,367,
%T 379,443,479,523,571,599,619,631,659,719,743,787,823,827,863,887,907,
%U 911,947,967,971,991,1019,1039,1051,1103,1123,1171,1223,1283,1307,1367,1447,1451,1499,1523,1531,1571,1619
%N Primes p such that (15 p + 1)/2 is prime.
%C If n is in the sequence, then 15 n is in A068405.
%H Robert Israel, <a href="/A287459/b287459.txt">Table of n, a(n) for n = 1..10000</a>
%e 23 and (15*23+1)/2 = 173 are prime, so 23 is in the sequence.
%p select(p -> isprime(p) and isprime((15*p+1)/2), [seq(i,i=3..10000,2)]);
%t Select[Prime[Range[300]],PrimeQ[(15#+1)/2]&] (* _Harvey P. Dale_, Sep 20 2017 *)
%Y Cf. A068405.
%K nonn
%O 1,1
%A _Robert Israel_, May 25 2017