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 A225756 #18 May 22 2021 17:41:20
%S A225756 2,3,14,15,21,22,26,27,33,34,35,38,39,44,45,57,58,75,76,85,86,87,93,
%T A225756 94,95,98,99,104,105,116,117,118,119,122,123,133,134,135,136,141,142,
%U A225756 143,145,146,147,148,158,159,171,172,177,178,189,190,201,202,203
%N A225756 Runs of consecutive numbers with the same number of divisors.
%C A225756 The first run of length 3 is {33,34,35}; the first of length 4: {116, 117, 118, 119}; of length 5: {2641, 2642, 2643, 2644, 2645}; of length 6: {1081, 1082, 1083, 1084, 1085, 1086}; of length 7: {25781, 25782, 25783, 25784, 25785, 25786, 25787}; of length 8: {77673, 77674, 77675, 77676, 77677, 77678, 77679, 77680}.
%H A225756 Vincenzo Librandi, <a href="/A225756/b225756.txt">Table of n, a(n) for n = 1..1000</a>
%e A225756 Sequence begins:
%e A225756 2, 3;
%e A225756 14, 15;
%e A225756 21, 22;
%e A225756 26, 27;
%e A225756 33, 34, 35;
%e A225756 38, 39;
%e A225756 etc.
%t A225756 sel = Select[Range[300], DivisorSigma[0, #] == DivisorSigma[0, # + 1] &]; Union[sel, sel + 1]
%t A225756 Flatten[SequencePosition[DivisorSigma[0,Range[300]],{x_,x_}]]//Union (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, May 22 2021 *)
%Y A225756 Cf. A225757 (same sum of divisors).
%Y A225756 Cf. A225758 (same number and sum of divisors).
%Y A225756 Cf. A140578 (first term of every run).
%K A225756 nonn,easy,tabf
%O A225756 1,1
%A A225756 _Jean-François Alcover_, May 15 2013