login
Primes p such that (15 p + 1)/2 is prime.
1

%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