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 A188631 #20 Mar 17 2023 07:13:03 %S A188631 62,63,74,164,188,194,195,207,255,275,278,279,284,314,356,362,363,398, %T A188631 399,404,422,423,428,455,458,459,483,494,524,539,584,614,615,662,674, %U A188631 692,734,747,758,759,764,824,854,867,890,927,935,944,956,998,999 %N A188631 Numbers k such that d(k-1) < d(k) < d(k+1) where d(k) is the number of divisors of k. %H A188631 Amiram Eldar, <a href="/A188631/b188631.txt">Table of n, a(n) for n = 1..10000</a> %F A188631 A000005(a(n)-1) < A000005(a(n)) < A000005(a(n)+1). %t A188631 Select[Range[2,1000], DivisorSigma[0, # - 1] < DivisorSigma[0, #] < DivisorSigma[0, # + 1] &] (* _T. D. Noe_, Apr 05 2011 *) %o A188631 (Magma) d:=func<k | NumberOfDivisors(k)>; [ n: n in [2..1000] | d(n-1) lt d(n) and d(n) lt d(n+1)]; // _Bruno Berselli_, Apr 05 2011 %Y A188631 Cf. A000005, A188540, A075028. %K A188631 nonn %O A188631 1,1 %A A188631 _Juri-Stepan Gerasimov_, Apr 05 2011 %E A188631 Corrected and extended by _T. D. Noe_, Apr 05 2011