cp's OEIS Frontend

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.

A091193 Smallest number having n abundant divisors.

This page as a plain text file.
%I A091193 #11 Feb 16 2025 08:32:52
%S A091193 1,12,24,36,60,72,168,120,180,288,240,432,504,360,864,1296,960,840,
%T A091193 720,1080,3456,1800,2016,1440,1680,3024,2160,3780,2880,2520,5280,3360,
%U A091193 6048,4320,6480,22440,11340,7200,6720,7920,5040,10800,7560,12960,18900,13440
%N A091193 Smallest number having n abundant divisors.
%C A091193 A080224(a(n))=n and A080224(m)<>n for m<a(n).
%H A091193 Amiram Eldar, <a href="/A091193/b091193.txt">Table of n, a(n) for n = 0..1000</a>
%H A091193 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/AbundantNumber.html">Abundant Number</a>.
%t A091193 numd[n_] := Length@Select[Divisors[n], DivisorSigma[1, #] > 2 # &]; m = 100; s =
%t A091193 Table[0, {m}]; n = 1; c = 0; While[c < m, k = numd[n]; If[k > 0 && k <= m && s[[k]] == 0, s[[k]] = n; c++]; n++]; s (* _Amiram Eldar_, Jun 24 2019 *)
%Y A091193 Cf. A080224.
%K A091193 nonn
%O A091193 0,2
%A A091193 _Reinhard Zumkeller_, Dec 27 2003
%E A091193 More terms from _Reinhard Zumkeller_, Dec 12 2009