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 A091196 #8 Feb 16 2025 08:32:52 %S A091196 12,18,20,12,30,12,20,42,12,18,56,12,66,70,12,78,20,12,88,18,12,20, %T A091196 102,104,12,56,114,12,18,12,138,20,12,30,12,20,18,12,174,88,12,186,12, %U A091196 196,18,20,12,104,30,12,20,222,56,12,18,12,246,12,258,20,12,18,272,12 %N A091196 Smallest abundant divisor of n-th abundant number. %H A091196 Amiram Eldar, <a href="/A091196/b091196.txt">Table of n, a(n) for n = 1..10000</a> %H A091196 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/AbundantNumber.html">Abundant Number</a> %t A091196 ab = Select[Range[300], DivisorSigma[1, #] > 2 # &]; s = {}; Do[a = ab[[k]]; j = 1; While[! Divisible[a, ab[[j]]], j++]; AppendTo[s, ab[[j]]], {k, 1, Length[ab]}]; s (* _Amiram Eldar_, Aug 30 2019 *) %Y A091196 Cf. A080224, A091191, A005101. %K A091196 nonn %O A091196 1,1 %A A091196 _Reinhard Zumkeller_, Dec 27 2003