This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A163111 #11 Jul 08 2021 11:46:25
%S A163111 3967,11027,11657,14107,16033,16787,18013,18617,18637,18839,19661,
%T A163111 21247,23719,24281,24571,29101,30367,31357,32749,33247,33679,33997,
%U A163111 35201,36037,37747,38501,40063,40387,42533,42611,43691,43913,44417,46957
%N A163111 Prime numbers with gaps larger than 18 towards both neighboring primes.
%H A163111 Harvey P. Dale, <a href="/A163111/b163111.txt">Table of n, a(n) for n = 1..1000</a>
%H A163111 <a href="/index/Pri#gaps">Index entries for primes, gaps between</a>
%F A163111 {A000040(i) : A001223(i) > 18 and A001223(i-1) > 18}. - R. J. Mathar, Jul 27 2009
%t A163111 lst={};Do[p=Prime[n];If[ !PrimeQ[p-2]&&!PrimeQ[p+2]&&!PrimeQ[p-4]&&!PrimeQ[p+4]&&!PrimeQ[p-6]&&!PrimeQ[p+6]&& !PrimeQ[p-8]&&!PrimeQ[p+8]&&!PrimeQ[p-10]&&!PrimeQ[p+10]&&!PrimeQ[p-12]&&!PrimeQ[p+12]&&!PrimeQ[p-14]&&!PrimeQ[p+14]&&!PrimeQ[p-16]&&!PrimeQ[p+16]&&!PrimeQ[p-18]&&!PrimeQ[p+18], AppendTo[lst,p]],{n,8!}];lst
%t A163111 Select[Partition[Prime[Range[5000]],3,1],Min[Differences[#]]>18&][[All,2]] (* _Harvey P. Dale_, Jul 08 2021 *)
%Y A163111 Cf. A137875, A137874, A137873, A137872, A137871
%K A163111 nonn
%O A163111 1,1
%A A163111 _Vladimir Joseph Stephan Orlovsky_, Jul 20 2009
%E A163111 Definition rephrased by _R. J. Mathar_, Jul 27 2009