|
%I #3 Mar 31 2012 12:38:13
%S 11,17,23,53,71,101,137,233,263,311,431,443,617,641,647,653,743,863,
%T 941,977,1193,1277,1367,1487,1667,1697,1733,1913,2003,2027,2081,2111,
%U 2213,2243,2711,2741,2753,2927,3137,3347,3677,3797,3881,4007
%N Prime numbers n such that n-x = prime, n-(x+2) = prime (twin primes #1) and n+x = prime, n+(x+2) = prime (twin primes #2).
%e 11-6=5, 11-8=3; 11+6=17, 11+8=19
%t For[e = 3, e < 10^2, s = 0; a = Prime[e]; For[i = 1, i < a, If[PrimeQ[a - i - 2] && PrimeQ[a - i] && PrimeQ[a + i] && PrimeQ[a + i + 2], s = i]; i++ ]; If[ ! s == 0, Print[a, ", ", s] ]; e++ ]
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Mar 29 2008
%E a(11)-a(44) from _Donovan Johnson_, Apr 27 2008
|
