The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation. Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A217769 Least number k > n such that sigma(k) = 2*(k-n), or 0 if no such k exists. 2
 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 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,1 COMMENTS 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 LINKS T. D. Noe and 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. EXAMPLE a(4)=22, since 22 is the least number such that sigma(22)=36=2*(22-4). MATHEMATICA Table[Min[Select[Range, 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 *) CROSSREFS Cf. A000203, A000396. Cf. A087998 (negative n). Sequence in context: A199867 A171030 A294386 * A296501 A296491 A085653 Adjacent sequences:  A217766 A217767 A217768 * A217770 A217771 A217772 KEYWORD nonn AUTHOR Jayanta Basu, Mar 28 2013 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified May 28 17:37 EDT 2020. Contains 334684 sequences. (Running on oeis4.)