|
Search: id:A125747
|
|
|
| A125747 |
|
a(n) is the smallest positive integer such that (sum{t(k)|n, 1<=k<=a(n)} t(k)) is >= n, where t(k) is the k-th positive divisor of n.. |
|
+0
3
|
|
| 1, 2, 2, 3, 2, 3, 2, 4, 3, 4, 2, 5, 2, 4, 4, 5, 2, 5, 2, 5, 4, 4, 2, 6, 3, 4, 4, 5, 2, 7, 2, 6, 4, 4, 4, 7, 2, 4, 4, 7, 2, 7, 2, 6, 6, 4, 2, 8, 3, 6, 4, 6, 2, 7, 4, 7, 4, 4, 2, 10, 2, 4, 6, 7, 4, 7, 2, 6, 4, 7, 2, 10, 2, 4, 6, 6, 4, 7, 2, 9, 5, 4, 2, 10, 4, 4, 4, 7, 2, 10, 4, 6, 4, 4, 4, 10, 2, 6, 6, 8, 2, 7, 2
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
LINKS
|
Leroy Quet, Home Page (listed in lieu of email address)
|
|
EXAMPLE
|
The divisors of 12 are 1,2,3,4,6,12. 1+2+3+4 = 10, which is smaller than 12; but 1+2+3+4+6 = 16, which is >= 12. 6 is the 5th divisor of 12, so a(12) = 5.
|
|
MATHEMATICA
|
f[n_] := Block[{k = 1, d = Divisors[n]}, While[Sum[d[[i]], {i, k}] < n, k++ ]; k]; Table[f[n], {n, 105}] (*Chandler*)
|
|
CROSSREFS
|
Cf. A125746, A117553.
Sequence in context: A166469 A080226 A060741 this_sequence A060129 A054030 A134740
Adjacent sequences: A125744 A125745 A125746 this_sequence A125748 A125749 A125750
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Leroy Quet Dec 05 2006
|
|
EXTENSIONS
|
Extended by Ray Chandler (rayjchandler(AT)sbcglobal.net), Dec 06 2006
|
|
|
Search completed in 0.002 seconds
|
