|
%I #16 Sep 08 2022 08:45:40
%S 3,5,17,23,47,53,59,89,107,137,173,179,239,263,269,317,347,383,389,
%T 443,449,479,557,563,569,617,647,653,659,677,683,857,863,929,953,1019,
%U 1097,1109,1193,1223,1229,1277,1373,1433,1487,1493,1499,1583,1607,1613,1667
%N Primes p such that 11*p + 4 is also prime.
%H Vincenzo Librandi, <a href="/A154608/b154608.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[2000]], PrimeQ[11 # + 4] &] (* _Vincenzo Librandi_, Mar 06 2013 *)
%o (Magma) [p: p in PrimesUpTo(1700)| IsPrime(11*p+4)]; // _Vincenzo Librandi_, Mar 06 2013
%o (PARI) for(n=1, 2000, if(isprime(n) && isprime(11*n+4), print1(n", "))) \\ _G. C. Greubel_, Sep 18 2019
%o (Sage) [n for n in (1..2000) if is_prime(n) and is_prime(11*n+4)] # _G. C. Greubel_, Sep 18 2019
%o (GAP) Filtered([1..2000], k-> IsPrime(k) and IsPrime(11*k+4)); # _G. C. Greubel_, Sep 18 2019
%Y Cf. A017437, A141851, A154607.
%K nonn,easy
%O 1,1
%A _Vincenzo Librandi_, Jan 15 2009
|
