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 A163630 #7 Jul 31 2017 03:23:59 %S A163630 20,22,36,48,78,90,132,162,258,330,372,468,498,510,678,708,720,750, %T A163630 762,888,918,972,1098,1170,1212,1380,1560,1602,1758,1800,1980,2052, %U A163630 2178,2220,2358,2442,2472,2610,2682,2778,2862 %N A163630 Numbers such that the two adjacent integers are a prime and 7 times a prime. %H A163630 G. C. Greubel, <a href="/A163630/b163630.txt">Table of n, a(n) for n = 1..5000</a> %e A163630 a(2)=22 lies between 21=7*A000040(2) and 23=A000040(9). %e A163630 a(3)=36 lies between 35=7*A000040(3) and 37=A000040(12). %t A163630 prQ[n_] := Module[{a = n - 1, b = n + 1}, (PrimeQ[a] && PrimeQ[b/7]) || (PrimeQ[b] && PrimeQ[a/7])]; Select[Range[5000], prQ] (* _G. C. Greubel_, Jul 30 2017 *) %Y A163630 Cf. A000040, A163492. %K A163630 nonn %O A163630 1,1 %A A163630 _Juri-Stepan Gerasimov_, Aug 02 2009 %E A163630 20 inserted, 62 removed, 90 added etc. by _R. J. Mathar_, Aug 07 2009