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 A038456 #20 Jul 04 2018 14:15:01
%S A038456 14,15,21,22,26,27,33,34,35,38,39,57,58,85,86,87,93,94,95,118,119,122,
%T A038456 123,133,134,141,142,143,145,146,158,159,177,178,201,202,203,205,206,
%U A038456 213,214,215,217,218,219,253,254,298,299,301,302,303,326,327,334,335,381,382,393,394,395,445,446,447,453,454
%N A038456 List of pairs of consecutive numbers each with 4 divisors (duplicates removed).
%D A038456 D. Wells, Curious and interesting numbers, Penguin Books.
%H A038456 Harvey P. Dale, <a href="/A038456/b038456.txt">Table of n, a(n) for n = 1..1000</a>
%e A038456 14 and 15 because both have 4 as number of divisors and are consecutive.
%t A038456 Union[Flatten[Select[Partition[Range[500],2,1],DivisorSigma[0,First[#]] == DivisorSigma[0,Last[#]]==4&]]] (* _Harvey P. Dale_, Jul 22 2012 *)
%t A038456 SequencePosition[DivisorSigma[0,Range[500]],{4,4}]//Flatten//Union (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Aug 15 2016 *)
%o A038456 (PARI) isA038456(n) = (numdiv(n)==4) && ((numdiv(n+1)==4) || (numdiv(n-1)==4)) \\ _Michael B. Porter_, Feb 03 2010
%Y A038456 Cf. A039832, A039833.
%K A038456 nonn
%O A038456 1,1
%A A038456 _Felice Russo_
%E A038456 Corrected and extended by _Olivier Gérard_
%E A038456 Corrected by _Rick L. Shepherd_, Jun 07 2002