OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..500
EXAMPLE
71+-12=primes and 71+-18=primes
103+- 6=primes and 103+-24=primes
107+- 6=primes and 107+-24=primes
127+-24=primes and 127+-30=primes
MATHEMATICA
l = {}; For[n = 1, n < 80, n++, c = 0; For[a = 1, a < Prime[n] - 2, a++, If[PrimeQ[Prime[n] - a] && PrimeQ[Prime[n] + a], For[b = a + 1, b < Prime[n], b++, If[PrimeQ[Prime[n] - b] && PrimeQ[Prime[n] + b], c = 1; Break; Break]]]]; If[c == 1, AppendTo[l, Prime[n]]]]; l (* Stefan Steinerberger, May 02 2008 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vladimir Joseph Stephan Orlovsky, Apr 27 2008
EXTENSIONS
Corrected and extended by Stefan Steinerberger, May 02 2008
STATUS
approved