Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #10 Jan 21 2019 19:01:55
%S 3,19,79,127,131,149,373,401,487,1031,1303,1427,1699,1801,2069,2477,
%T 2659,2767,3307,3391,3449,3583,3671,3727,4093,4423,4603,4817,5081,
%U 5501,5641,5737,5813,5839,6619,7219,7243,7351,7393,8293,8543,8641,8693,8699
%N Primes p such that both prime(p) + prime(p+1) +/-1 are also primes.
%H Vincenzo Librandi, <a href="/A093734/b093734.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[ Range[ 10000 ], PrimeQ[ # ] && PrimeQ[ Prime[ # ] + Prime[ # + 1 ] - 1 ] && PrimeQ[ Prime[ # ] + Prime[ # + 1 ] + 1 ] & ]
%Y Cf. A072669, A092738.
%K nonn
%O 1,1
%A _Robert G. Wilson v_ and _Jorge Coveiro_, Apr 14 2004