|
%I #7 Oct 01 2013 17:57:55
%S 2,3,5,7,13,17,23,31,37,41,43,47,73,83,97,101,107,127,131,157,167,173,
%T 181,197,211,227,233,257,271,281,283,311,313,317,331,353,367,383,397,
%U 401,433,457,461,463,491,521,541,563,587,601,631,653,673,677,691,701,727,733,751
%N Primes p such that 6p+11 is also a prime.
%H Harvey P. Dale, <a href="/A089438/b089438.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Prime[Range[200]],PrimeQ[6#+11]&] (* _Harvey P. Dale_, Jun 20 2012 *)
%o (PARI) diff2p(n,a,b) = { forprime(x=3,n, y=(x-a)/b; if(y==floor(y), if(isprime(y), print1(y",")) ) ) }
%Y Cf. A094517 (complement in primes).
%K easy,nonn
%O 1,1
%A _Cino Hilliard_, Dec 28 2003
|
