|
%I #5 Jul 12 2019 07:21:33
%S 0,2,3,5,5,11,7,11,10,17,11,26,13,23,23,23,17,36,19,40,31,35,23,56,26,
%T 41,31,54,29,71,31,47,47,53,47,85,37,59,55,86,41,95,43,82,75,71,47,
%U 116,50,88,71,96,53,111,71,116,79,89,59,166,61,95,101,95,83,143,67,124,95,143,71,183,73,113,119,138,95,167,79
%N a(n) = sigma(n) - A003557(n).
%H Antti Karttunen, <a href="/A326187/b326187.txt">Table of n, a(n) for n = 1..20000</a>
%F a(n) = A000203(n) - A003557(n).
%o (PARI)
%o A003557(n) = { my(f=factor(n)); for (i=1, #f~, f[i, 2] = f[i, 2]-1); factorback(f); }; \\ From A003557
%o A326187(n) = (sigma(n)-A003557(n));
%Y Cf. A000203, A003557, A326188.
%Y Cf. also A326184.
%K nonn
%O 1,2
%A _Antti Karttunen_, Jul 11 2019
|
