Don Reble, <a href="/A034090/b034090_3.txt">Table of n, a(n) for n = 1..6524</a> (first 372 terms from T. D. Noe, terms 373 to 1000 from Donovan Johnson, terms 1001 to 2750 from Robert G. Wilson v)
Don Reble, <a href="/A034090/b034090_3.txt">Table of n, a(n) for n = 1..6524</a> (first 372 terms from T. D. Noe, terms 373 to 1000 from Donovan Johnson, terms 1001 to 2750 from Robert G. Wilson v)
editing
approved
N. J. A. Sloane, Don Reble, <a href="/A034090/b034090_3.txt">Table of n, a(n) for n = 1..6524</a> (first 372 terms from _T. D. Noe_, terms 373 to 1000 from _Donovan Johnson_, terms 1001 to 2750 from Robert G. Wilson v)
Robert GN. J. A. Wilson v, Sloane, <a href="/A034090/b034090_3.txt">Table of n, a(n) for n = 1..27506524</a> (first 372 terms from _T. D. Noe_, terms 373 to 1000 from _Donovan Johnson_)
approved
editing
editing
approved
editing
approved
DeleteDuplicates[Table[{n, DivisorSigma[1, n]-n}, {n, 5000}], GreaterEqual[ #1[[2]], #2[[2]]]&][[All, 1]] (* Harvey P. Dale, Jan 15 2023 *)
approved
editing
editing
approved
Table of initial values of n, a(n), A034091(n) = f(a(n)), where f(k) = sigma(k)-k = A001065(k):
1, 1, 0
2, 2, 1
3, 4, 3
4, 6, 6
5, 8, 7
6, 10, 8
7, 12, 16
8, 18, 21
9, 20, 22
10, 24, 36
11, 30, 42
12, 36, 55
13, 48, 76
14, 60, 108
15, 72, 123
16, 84, 140
17, 90, 144
18, 96, 156
19, 108, 172
20, 120, 240
approved
editing