|
%I #10 Jun 12 2018 02:44:02
%S 2,7,11,17,29,31,37,43,59,73,109,137,191,193,197,227,239,263,269,337,
%T 367,373,401,409,449,479,499,541,557,701,743,757,823,827,857,941,983,
%U 997,1033,1051,1109,1163,1303,1361,1471
%N Primes p=n/2 such that 5n+3 and 3n+5 are primes.
%H Robert Israel, <a href="/A124854/b124854.txt">Table of n, a(n) for n = 1..10000</a>
%p select(t -> isprime(t) and isprime(10*t+3) and isprime(6*t+5), [2,seq(i,i=3..10^4,2)]); # _Robert Israel_, Jun 11 2018
%t Select[Prime@ Range@ 250, AllTrue[{10 # + 3, 6 # + 5}, PrimeQ] &] (* _Michael De Vlieger_, Jun 11 2018 *)
%o (PARI) isok(n) = isprime(n) && isprime(10*n+3) && isprime(6*n+5); \\ _Michel Marcus_, Oct 11 2013
%Y Cf. A087505, A088879, A124853.
%K nonn
%O 1,1
%A _Zak Seidov_, Nov 10 2006
|
