# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a125747 Showing 1-1 of 1 %I A125747 #21 Mar 24 2018 18:50:10 %S A125747 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, %T A125747 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, %U A125747 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 %N A125747 a(n) is the smallest positive integer such that (Sum_{t(k)|n, 1 <= k <= a(n)} t(k)) >= n, where t(k) is the k-th positive divisor of n. %C A125747 a(n) = the least number of divisors of n, taken in increasing order as 1, A020639(n), A292269(n), etc. needed so that their sum is >= n. - _Antti Karttunen_, Mar 21 2018 %H A125747 Antti Karttunen, Table of n, a(n) for n = 1..65537 %e A125747 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. %t A125747 f[n_] := Block[{k = 1, d = Divisors[n]},While[Sum[d[[i]], {i, k}] < n, k++ ];k];Table[f[n], {n, 105}] (* _Ray Chandler_, Dec 06 2006 *) %o A125747 (PARI) A125747(n) = { my(k=0,s=0); fordiv(n,d, k++; s += d; if(s>=n,return(k))); }; \\ _Antti Karttunen_, Mar 21 2018 %Y A125747 Cf. A020639, A292269, A125746, A117553. %K A125747 nonn %O A125747 1,2 %A A125747 _Leroy Quet_, Dec 05 2006 %E A125747 Extended by _Ray Chandler_, Dec 06 2006 # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE