A101223 -id:A101223 - cp's OEIS frontend

A292626 Numbers k whose abundance is 128: sigma(k) - 2*k = 128.

860, 5336, 6536, 9656, 16256, 55796, 70864, 98048, 361556, 776096, 2227616, 4145216, 4498136, 4632896, 8124416, 13086016, 34869056, 38546576, 150094976, 172960856, 196066256, 962085536, 1080008576, 1733780336, 1844788112, 2143256576, 2531343872, 2986104064, 9677743616, 11276687456, 17104503968, 20680182272, 21568135616

Offset: 1

Fabian Schneider, Sep 20 2017

Max Alekseyev, Table of n, a(n) for n = 1..87

Subsequence of A259174.
Deficiency k: A191363 (k=2), A125246 (k=4), A141548 (k=6), A125247 (k=8), A101223 (k=10), A141549 (k=12), A141550 (k=14), A125248 (k=16), A223608 (k=18), A223607 (k=20), A223606 (k=22), A385255(k=24), A275702 (k=26), A387352 (k=32), A275997 (k=64).
Abundance k: A088831 (k=2), A088832 (k=4), A087167 (k=6), A088833 (k=8), A223609 (k=10), A141545 (k=12), A141546 (k=14), A141547 (k=16), A223610 (k=18), A223611 (k=20), A223612 (k=22), A223613 (k=24), A275701 (k=26), A175989 (k=32), A275996 (k=64).

fQ[n_] := DivisorSigma[1, n] == 2 n + 128; Select[ Range@ 10^8, fQ] (* Robert G. Wilson v, Nov 19 2017 *)

isok(n) = sigma(n) - 2*n == 128; \\ Michel Marcus, Sep 20 2017

a(9)-a(18) from Michel Marcus, Sep 20 2017
a(19)-a(24), a(26), a(29)-a(30), a(33) from Robert G. Wilson v, Nov 20 2017
Missing terms a(25), a(27)-a(28), a(31)-a(32) inserted and terms a(34) onward added by Max Alekseyev, Aug 30 2025

A385255 Numbers m whose deficiency is 24: sigma(m) - 2*m = -24.

Original entry on oeis.org

124, 9664, 151115727458150838697984

Offset: 1

Max Alekseyev, Jul 29 2025

Contains numbers 2^(k-1)*(2^k + 23) for k in A057203. First three terms have this form.

Deficiency k: A191363 (k=2), A125246 (k=4), A141548 (k=6), A125247 (k=8), A101223 (k=10), A141549 (k=12), A141550 (k=14), A125248 (k=16), A223608 (k=18), A223607 (k=20), A223606 (k=22), A275702 (k=26).
Abundance k: A088831 (k=2), A088832 (k=4), A087167 (k=6), A088833 (k=8), A223609 (k=10), A141545 (k=12), A141546 (k=14), A141547 (k=16), A223610 (k=18), A223611 (k=20), A223612 (k=22), A223613 (k=24), A275701 (k=26).
Cf. A057203.

A387352 Numbers m with deficiency 32: sigma(m) - 2*m = -32.

Original entry on oeis.org

250, 376, 1276, 12616, 20536, 396916, 801376, 1297312, 8452096, 33721216, 40575616, 59376256, 89397016, 99523456, 101556016, 150441856, 173706136, 269096704, 283417216, 500101936, 1082640256, 1846506832, 15531546112, 34675557856, 136310177392, 136783784608

Offset: 1

Max Alekseyev, Aug 27 2025

Contains numbers 2^(k-1)*(2^k + 31) for k in A247952.

Max Alekseyev, Table of n, a(n) for n = 1..54

Deficiency k: A191363 (k=2), A125246 (k=4), A141548 (k=6), A125247 (k=8), A101223 (k=10), A141549 (k=12), A141550 (k=14), A125248 (k=16), A223608 (k=18), A223607 (k=20), A223606 (k=22), A385255(k=24), A275702 (k=26), A275997 (k=64).
Abundance k: A088831 (k=2), A088832 (k=4), A087167 (k=6), A088833 (k=8), A223609 (k=10), A141545 (k=12), A141546 (k=14), A141547 (k=16), A223610 (k=18), A223611 (k=20), A223612 (k=22), A223613 (k=24), A275701 (k=26), A175989 (k=32), A275996 (k=64), A292626 (k=128).
Cf. A247952.

A217769 Least number k > n such that sigma(k) = 2*(k-n), or 0 if no such k exists.

Original entry on oeis.org

6, 3, 5, 7, 22, 11, 13, 27, 17, 19, 46, 23, 124, 58, 29, 31, 250, 57, 37, 55, 41, 43, 94, 47, 1264, 106, 53, 87, 118, 59, 61, 85, 134, 67, 142, 71, 73, 712, 158, 79, 166, 83, 405, 115, 89, 141, 406, 119, 97, 202, 101, 103, 214, 107, 109, 145, 113, 177, 418, 143

Offset: 0

Jayanta Basu, Mar 28 2013

nonn

a(0) = 6 corresponds to the smallest perfect number.
Is n = 144 the first number for which a(n) = 0? - T. D. Noe, Mar 28 2013
No, a(144) = 95501968. - Giovanni Resta, Mar 28 2013
We can instead compute k - sigma(k)/2 for increasing k, which is computationally much faster. In this case, we stop computing when all n have been found for a range of numbers. - T. D. Noe, Mar 28 2013
Also, the first number whose deficiency is 2n. This is the even bisection of A082730. Hence, the first number in the following sequences: A000396, A191363, A125246, A141548, A125247, A101223, A141549, A141550, A125248, A223608, A223607, A223606. - T. D. Noe, Mar 29 2013
10^12 < a(654) <= 618970019665683124609613824. - Donovan Johnson, Jan 04 2014

			a(4)=22, since 22 is the least number such that sigma(22)=36=2*(22-4).

Donovan Johnson, Table of n, a(n) for n = 0..653 (first 241 terms from T. D. Noe)
Nichole Davis, Dominic Klyve and Nicole Kraght, On the difference between an integer and the sum of its proper divisors, Involve, Vol. 6 (2013), No. 4, 493-504; DOI: 10.2140/involve.2013.6.493.

Cf. A000203, A000396.

Cf. A087998 (negative n).

Table[Min[Select[Range[2000], DivisorSigma[1, #] == 2*(# - i) &]], {i, 0, 60}]
nn = 144; t = Table[0, {nn}]; k = 0; While[k++; Times @@ t == 0, s = (2*k - DivisorSigma[1, k])/2; If[s >= 0 && s < nn && IntegerQ[s] && t[[s + 1]] == 0, t[[s + 1]] = k]]; t (* T. D. Noe, Mar 28 2013 *)

A101259 Numbers n whose deficiency is 54.

Original entry on oeis.org

87, 195, 244, 495, 11584, 35595, 137452847104

Offset: 1

Vassil K. Tintschev (tinchev(AT)sunhe.jinr.ru), Dec 17 2004

No more elements found up to 2*10^7. - Stefan Steinerberger, Feb 04 2006

			87 is a term of the sequence because 3*29 = 87 and 87 - 29 - 3 = g(87) = 55.

Cf. A033879, A101223.

[n: n in [1..2*10^7] | DivisorSigma(1,n)+54 eq 2*n]; // Vincenzo Librandi, Jul 30 2015

Do[ If[ DivisorSigma[1, n] + 54 == 2n, Print[n]], {n, 10^7}] (* Robert G. Wilson v, Dec 22 2004 *)

a(7) from Donovan Johnson, Dec 23 2008

A162302 Numbers n such that (A000203(n)+28)/n is an integer.

Original entry on oeis.org

1, 28, 29, 62, 84, 182, 230, 252, 344, 756, 944, 2268, 6710, 6804, 20264, 20412, 36224, 61236, 183708, 538112, 551124, 1653372, 2085710, 4960116, 14503550, 14880348, 33665024, 44641044, 55328384, 133923132, 134438912, 401769396, 615206030, 1082574464

Offset: 1

Ctibor O. Zizka, Jun 30 2009

nonn

Contains the subset of all n of the form 28*3^k.
Generalized sequences are defined by A*A000203(n)+ B = C*n with A,B,C integers.
Then we get for different settings of A, B, C hyperperfect numbers:
A=1, C=2, B=0 gives A000396. A=1, C=2, B=1 gives A000079.
A=1, C=2, B=2 gives A056006. A=1, C=2, B=4 gives A125246. A=1, C=2, B=6 gives A141548.
A=1, C=2, B=8 gives A125247. A=1, C=2, B=10 gives A101223. A=1, C=2, B=12 gives A141549.
A=1, C=2, B=14 gives A141550. A=1, C=2, B=16 gives A125248. A=1, C=2, B=0 gives A000396.
A=1, C=2, B=0 gives A000396. A=1, C=3, B=0 gives A005820.
Not in the OEIS: A=1, C=3, B=12,18,28,... A=2, C=3, B=21,27,33,45,... A=3, C=4, B=20,...
Terms not of the form 28*3^n: 1, 29, 62, 182, 230, 344, 944, 6710, 20264, 36224, 538112, 2085710, 14503550, 33665024, 55328384, ..., . [Robert G. Wilson v, Sep 05 2010]

Graeme L. Cohen, Herman J. J. te Riele, Iterating the Sum-of-Divisors Function, Experimental Mathematics, Vol.5 (1996), No. 2, pp.91-100.

Cf. A000203, A000396, A000079, A005820, A056006, A125246, A141548, A125247, A101223, A141549, A141550, A125248,

A000203 := proc(n) numtheory[sigma](n) ; end proc:
isA152302 := proc(n) (A000203(n)+28) mod n = 0 ; end proc:
for n from 1 to 1000000 do if isA152302(n) then printf("%d,",n) ; end if ; end do: # R. J. Mathar, Aug 25 2010

fQ[n_] := Divisible[ DivisorSigma[1, n] + 28, n]; lst = {}; k = 1; While[k < 10^9/4, If[ fQ@k, AppendTo[lst, k]; Print@k]; k++ ]; lst (* Robert G. Wilson v, Sep 05 2010 *)

Missing terms (1, 29, 182,..) inserted, 7 terms added, comment corrected - R. J. Mathar, Aug 25 2010
a(22)-a(30) from Robert G. Wilson v, Sep 05 2010
a(31)-a(34) from Donovan Johnson, Nov 03 2011

cp's OEIS Frontend

A292626 Numbers k whose abundance is 128: sigma(k) - 2*k = 128.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A385255 Numbers m whose deficiency is 24: sigma(m) - 2*m = -24.

Views

Author

Keywords

Comments

Crossrefs

A387352 Numbers m with deficiency 32: sigma(m) - 2*m = -32.

Views

Author

Keywords

Comments

Links

Crossrefs

A217769 Least number k > n such that sigma(k) = 2*(k-n), or 0 if no such k exists.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A101259 Numbers n whose deficiency is 54.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Magma

Mathematica

Extensions

A162302 Numbers n such that (A000203(n)+28)/n is an integer.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Maple

Mathematica

Extensions