A088833 Numbers n whose abundance is 8: sigma(n) - 2n = 8.
56, 368, 836, 11096, 17816, 45356, 77744, 91388, 128768, 254012, 388076, 2087936, 2291936, 13174976, 29465852, 35021696, 45335936, 120888092, 260378492, 381236216, 775397948, 3381872252, 4856970752, 6800228816, 8589344768, 44257207676, 114141404156
Offset: 1
Keywords
Examples
Except first 4 terms of A045770 (1, 7, 10, and 49) are here: abundances = {-1,-6,-2,-41,8,8,8,8,8,8,8,8,8,8,8,8,8}.
Links
- Giovanni Resta and Hiroaki Yamanouchi, Table of n, a(n) for n = 1..37 (terms a(1)-a(30) from _Giovanni Resta_)
Crossrefs
Programs
-
Mathematica
Do[If[DivisorSigma[1,n]==2n+8,Print[n]],{n,100000000}] (* Farideh Firoozbakht, Feb 15 2008 *)
-
PARI
is(n)=sigma(n)==2*n+8 \\ Charles R Greathouse IV, Feb 21 2017
Extensions
a(14)-a(17) from Farideh Firoozbakht, Feb 15 2008
a(18)-a(25) from Donovan Johnson, Dec 23 2008
a(26)-a(27) from Donovan Johnson, Dec 08 2011
Comments