|
%I #31 Sep 08 2022 08:44:47
%S 5,11,13,19,23,31,41,43,59,61,71,83,103,109,113,149,151,173,179,199,
%T 211,223,229,233,241,263,269,281,283,353,373,379,383,389,419,421,431,
%U 433,439,479,499,503,541,563,569,571,593,613,619,631,641,643,683,709,719,739,761
%N Primes p such that 7*p + 6 is also prime.
%H John Cerkan, <a href="/A023225/b023225.txt">Table of n, a(n) for n = 1..10000</a>
%t Select[Prime[Range[2000]], PrimeQ[7 # + 6]&] (* _Vincenzo Librandi_, Feb 02 2014 *)
%o (Magma) [n: n in [0..1000] | IsPrime(n) and IsPrime(7*n+6)]; // _Vincenzo Librandi_, Nov 20 2010
%o (PARI) is(n)=isprime(7*n+6)&&isprime(n) \\ _Charles R Greathouse IV_, Jul 02 2013
%K nonn,easy
%O 1,1
%A _David W. Wilson_
|
