|
%I #28 Oct 27 2023 22:00:46
%S 1,2,2,3,2,3,2,4,4,3,4,4,2,4,4,3,4,3,2,5,5,4,3,4,2,4,4,5,4,5,5,4,5,5,
%T 4,4,4,5,4,4,2,5,4,5,6,5,5,5,5,5,5,6,5,5,4,5,6,5,4,4,5,4,5,4,6,6,6,6,
%U 6,6,6,6,5,6,6,5,6,5,6,6,5,4,4,5,4,4,5,6,5,5,4,6,4,4,6,5,6,6,6,6,6,6,6,5,6
%N Sigma(n)/n for n such that sigma(n) is divisible by n.
%C The graph supports the conjecture that all numbers except 2 appear only a finite number of times. Sequences A000396, A005820, A027687, A046060 and A046061 give the n for which the abundancy sigma(n)/n is 2, 3, 4, 5 and 6, respectively. See A134639 for the number of n having abundancy greater than 2. - _T. D. Noe_, Nov 04 2007
%H T. D. Noe, <a href="/A054030/b054030.txt">Table of n, a(n) for n = 1..1600</a> (using Flammenkamp's data)
%H Achim Flammenkamp, <a href="http://wwwhomes.uni-bielefeld.de/achim/mpn.html">The Multiply Perfect Numbers Page</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Abundancy.html">Abundancy</a>
%F a(n) = sigma(A007691(n))/A007691(n)
%p with(numtheory): for i while i < 33000 do
%p if sigma(i) mod i = 0 then print(sigma(i)/i) fi od;
%o (PARI) for(n=1,1e7,if(denominator(k=sigma(n,-1))==1, print1(k", "))) \\ _Charles R Greathouse IV_, Mar 09 2014
%Y Cf. A000203, A007691, A054024, A065997, A219545.
%K nonn,easy
%O 1,2
%A _Asher Auel_, Jan 19 2000
%E More terms from _Jud McCranie_, Jul 09 2000
%E More terms from _David Wasserman_, Jun 28 2004
|
