|
%I #10 Sep 08 2022 08:46:06
%S 2,11,23,29,41,83,89,113,131,179,191,281,293,359,419,431,491,509,593,
%T 641,653,683,719,1019,1049,1103,1229,1289,1409,1451,1511,1583,1601,
%U 1811,1889,1931,2003,2039,2069,2129,2141,2273,2393,2399,2459,2543,2549,2699
%N Primes p such that 2*p+1 and 2*p+15 are also prime.
%H Vincenzo Librandi, <a href="/A237813/b237813.txt">Table of n, a(n) for n = 1..1000</a>
%e 11 is in the sequence because 11, 2*11+1 = 23 and 2*11+15 = 37 are all prime.
%t Select[Prime[Range[5000]], PrimeQ[2 # + 1] && PrimeQ[2 # + 15] &] (* _Vincenzo Librandi_, Feb 15 2014 *)
%o (PARI) s=[]; forprime(p=2, 10000, if(isprime(2*p+1) && isprime(2*p+15), s=concat(s, p))); s
%o (Magma) [p: p in PrimesUpTo(4000) | IsPrime(2*p+1) and IsPrime(2*p+15)]; // _Vincenzo Librandi_, Feb 15 2014
%Y Cf. A126107, A237810, A237811, A237812, A237814.
%K nonn
%O 1,1
%A _Colin Barker_, Feb 13 2014
|
