|
%I #5 Feb 14 2019 07:47:10
%S 1,2,2,6,2,12,2,13,12,14,2,24,2,16,12,29,2,27,2,26,12,20,2,48,18,22,
%T 39,56,2,48,2,60,45,26,39,76,2,28,51,80,2,90,2,72,42,32,2,112,24,72,
%U 63,80,2,102,68,88,69,38,2,120,2,40,101,124,76,114,2,96,81,86,2,183,2,46,121,104,76,126,2,130,79,50,2,196,92,52
%N a(n) = A000203(n) - A106316(n).
%H Antti Karttunen, <a href="/A324047/b324047.txt">Table of n, a(n) for n = 1..20000</a>
%F a(n) = A000203(n) - A106316(n).
%o (PARI)
%o A106315(n) = (n*numdiv(n) % sigma(n));
%o A106316(n) = (A106315(n) % n);
%o A324047(n) = (sigma(n) - A106316(n));
%Y Cf. A000005, A000203, A106315, A106316, A324045, A324046.
%K nonn
%O 1,2
%A _Antti Karttunen_, Feb 13 2019
|
