A136342 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).

11, 17, 23, 53, 71, 101, 137, 233, 263, 311, 431, 443, 617, 641, 647, 653, 743, 863, 941, 977, 1193, 1277, 1367, 1487, 1667, 1697, 1733, 1913, 2003, 2027, 2081, 2111, 2213, 2243, 2711, 2741, 2753, 2927, 3137, 3347, 3677, 3797, 3881, 4007

Offset

1,1

Links

Table of n, a(n) for n=1..44.

Example

11-6=5, 11-8=3; 11+6=17, 11+8=19

Mathematica

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++ ]

Crossrefs

Sequence in context: A377174 A098412 A261918 * A126609 A359443 A079367

Adjacent sequences: A136339 A136340 A136341 * A136343 A136344 A136345

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Mar 29 2008

Extensions

a(11)-a(44) from Donovan Johnson, Apr 27 2008

Status

approved