A093734 Primes p such that both prime(p) + prime(p+1) +/-1 are also primes.

3, 19, 79, 127, 131, 149, 373, 401, 487, 1031, 1303, 1427, 1699, 1801, 2069, 2477, 2659, 2767, 3307, 3391, 3449, 3583, 3671, 3727, 4093, 4423, 4603, 4817, 5081, 5501, 5641, 5737, 5813, 5839, 6619, 7219, 7243, 7351, 7393, 8293, 8543, 8641, 8693, 8699

Offset: 1

Author

Robert G. Wilson v and Jorge Coveiro, Apr 14 2004

Keywords

• nonn

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A072669, A092738.

Programs

Mathematica

Select[ Range[ 10000 ], PrimeQ[ # ] && PrimeQ[ Prime[ # ] + Prime[ # + 1 ] - 1 ] && PrimeQ[ Prime[ # ] + Prime[ # + 1 ] + 1 ] & ]