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 A163628 #9 Jul 31 2017 03:36:21
%S A163628 8,10,14,16,20,22,32,38,40,52,58,68,70,88,110,112,128,130,140,158,178,
%T A163628 182,200,212,238,250,268,292,308,310,338,380,382,410,418,448,488,490,
%U A163628 500,502,520,542,572,578,592,598,632,682,700,718,752,770,772,788,808
%N A163628 Integers such that the two adjacent integers are a prime and three times a prime.
%C A163628 Union[3*A023208 + 1, 3*A088878 - 1]. [_Zak Seidov_, Aug 07 2009]
%H A163628 G. C. Greubel, <a href="/A163628/b163628.txt">Table of n, a(n) for n = 1..10000</a>
%e A163628 a(1)=8 which lies between 7=A000040(4) and 9 = A001748(2).
%e A163628 a(2)=10 which lies between 9=A001748(2) and 11 = A000040(5).
%t A163628 n = 1; A023208 = {}; Do[If[PrimeQ[(Prime[k] - 2 n)/(2 n + 1)], AppendTo[A023208, (Prime[k] - 2 n)/(2 n + 1)]], {k, 1, 1000}]; A023208;
%t A163628 A088878 = {}; Do[p = Prime[n]; If[PrimeQ[3*p - 2], AppendTo[A088878, p]], {n, 5!}]; A088878; Union[3*A023208 + 1, 3*A088878 - 1] (* _G. C. Greubel_, Jul 30 2017 *)
%Y A163628 Cf. A000040, A163492.
%K A163628 nonn
%O A163628 1,1
%A A163628 _Juri-Stepan Gerasimov_, Aug 02 2009
%E A163628 Many terms like 44, 46, 62 etc. removed by _R. J. Mathar_, Aug 06 2009