OFFSET
1,1
COMMENTS
The three primes p-18, p and p+18 are not necessarily consecutive.
LINKS
Daniel Starodubtsev, Table of n, a(n) for n = 1..10000
FORMULA
EXAMPLE
23 is the middle in the triple of three primes (23-18=5, 23, 23+18=41) with arithmetic progression 18.
MATHEMATICA
q=6*3; lst={}; Do[p=Prime[n]; If[PrimeQ[p-q] && PrimeQ[p+q], AppendTo[lst, p]], {n, 5000}]; lst
Select[Prime[Range[7, 400]], AllTrue[#+{18, -18}, PrimeQ]&] (* Harvey P. Dale, Apr 21 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jun 17 2009
EXTENSIONS
Rephrased the definition - R. J. Mathar, Sep 22 2009
STATUS
approved