OFFSET
1,1
LINKS
Zak Seidov, Table of n, a (n) for n = 1..1000
FORMULA
a(n) = A052189(n) + 18. - Sean A. Irvine, Dec 05 2021
EXAMPLE
25391 is separated from both the next lower prime and the next higher prime by 18.
MATHEMATICA
lst={}; Do[p=Prime[n]; If[p-Prime[n-1]==Prime[n+1]-p==6*3, AppendTo[lst, p]], {n, 2, 3*7!}]; lst (* Vladimir Joseph Stephan Orlovsky, May 20 2010 *)
Transpose[Select[Partition[Prime[Range[20000]], 3, 1], Differences[#] == {18, 18}&]][[2]] (* Harvey P. Dale, Oct 21 2011 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Harvey P. Dale, Feb 25 2000
STATUS
approved