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 A140578 #9 Apr 09 2014 10:15:19 %S A140578 2,14,21,26,33,38,44,57,75,85,93,98,104,116,118,122,133,135,141,145, %T A140578 147,158,171,177,189,201,205,213,217,230,242,253,285,296,298,301,326, %U A140578 332,334,344,374,381,387,393,429,434,445,453,481,501,507,514,526,537,542 %N A140578 A positive integer n is included if n is the smallest integer in a run of a plural number of consecutive integers all with the same number of divisors. %C A140578 All terms of this sequence are included in sequence A005237. %e A140578 d(33) = d(34) = d(35), where d(n) is the number of divisors of n. And since d(32) does not equal d(33), d(33) is the first term of this run of similar values. So 33 is included in this sequence. %t A140578 (First /@ Select[ Split[ Table[ {DivisorSigma[0, n], n}, {n, 1, 600}], First[#1] == First[#2] &] , Length[#] > 1 &])[[All, 2]] (* _Jean-François Alcover_, Oct 07 2013 *) %Y A140578 Cf. A005237. %K A140578 nonn %O A140578 1,1 %A A140578 _Leroy Quet_, Jul 05 2008 %E A140578 Extended by _Ray Chandler_, Jun 25 2009