%I #9 Feb 15 2014 11:15:24
%S 3,8,11,18,50,58,114,174,207,210,213,254,263,266,316,321,344,396,406,
%T 461,493,496,499,543,556,582,614,626,644,724,727,741,847,932,1099,
%U 1102,1118,1121,1233,1236,1261,1285,1443,1616,1619,1640,1705,1710,1783,1792
%N Indices n of primes p(n), p(n+3) such that p(n)-2 and p(n+3)-2 are both prime.
%t Select[Range[2000],PrimeQ[Prime[#]-2]&&PrimeQ[Prime[#+3]-2]&] (* _Harvey P. Dale_, Jun 02 2011 *)
%o (PARI) pnpk(n,m,k) = \ both are prime { local(x,l1,l2,v1,v2); for(x=1,n, v1 = prime(x)+ k; v2 = prime(x+m)+k; if(isprime(v1)&isprime(v2), \ print1(x",") print1(v1",") ) ) }
%K nonn
%O 2,1
%A _Cino Hilliard_, May 02 2005
|