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 A193672 #9 Feb 14 2025 17:52:14 %S A193672 14,20,22,24,26,28,34,36,38,40,46,48,50,58,60,62,63,70,74,80,82,84,86, %T A193672 94,96,98,99,100,105,106,117,118,120,122,134,136,138,140,142,146,152, %U A193672 153,154,158,160,166,170,174,178,180,182,184,186,189,190,192,194 %N A193672 Numbers such that the last of the differences of divisors is < 0. %C A193672 A187202(a(n)) < 0. %H A193672 Reinhard Zumkeller, <a href="/A193672/b193672.txt">Table of n, a(n) for n = 1..10000</a> %t A193672 Select[Range[200],Differences[Divisors[#],DivisorSigma[0,#]-1][[1]]<0&] (* _Harvey P. Dale_, Feb 14 2025 *) %o A193672 (Haskell) %o A193672 import Data.List (findIndices) %o A193672 a193672 n = a193672_list !! (n-1) %o A193672 a193672_list = map (+ 1) $ findIndices (< 0) $ map a187202 [1..] %Y A193672 Cf. A187204, A193672. %K A193672 nonn %O A193672 1,1 %A A193672 _Reinhard Zumkeller_, Aug 02 2011