|
%I #7 Jun 06 2019 21:59:12
%S 0,2,3,5,5,9,7,11,10,13,11,22,13,17,19,23,17,30,19,32,25,25,23,48,26,
%T 29,31,42,29,57,31,47,37,37,41,73,37,41,43,70,41,75,43,62,63,49,47,
%U 100,50,68,55,72,53,93,61,92,61,61,59,138,61,65,83,95,71,111,67,92,73,109,71,159,73,77,99,102,85,129,79,146,94,85,83
%N Sum of all other divisors of n except the largest proper divisor. a(1) = 0 by convention.
%H Antti Karttunen, <a href="/A326061/b326061.txt">Table of n, a(n) for n = 1..20000</a>
%F a(n) = A000203(n) - A032742(n).
%F For n > 1, a(n) = n + A318505(n).
%o (PARI)
%o A032742(n) = if(1==n,n,n/vecmin(factor(n)[,1]));
%o A326061(n) = (sigma(n)-A032742(n));
%Y Cf. A000203, A032742, A318505, A326062.
%Y Cf. also A326053.
%K nonn
%O 1,2
%A _Antti Karttunen_, Jun 06 2019
|
