|
%I #9 Aug 27 2018 08:14:12
%S 0,1,1,4,1,8,1,11,5,12,1,25,1,15,13,26,1,34,1,37,16,23,1,62,9,27,21,
%T 47,1,70,1,57,24,36,20,97,1,39,28,90,1,93,1,71,55,46,1,139,12,77,37,
%U 83,1,118,28,115,40,58,1,193,1,61,71,120,32,142,1,109,47,133,1,228,1,75,86,119,31,164,1,199,71,83,1,256,41
%N a(n) = Sum_{d|n, d<n} A005187(d).
%H Antti Karttunen, <a href="/A318445/b318445.txt">Table of n, a(n) for n = 1..65537</a>
%F a(n) = Sum_{d|n, d<n} A005187(d).
%F a(n) = A318446(n) - A005187(n).
%F a(n) = A211779(n) + A318447(n).
%F a(n) = A293447(A293214(n)).
%o (PARI)
%o A005187(n) = { my(s=n); while(n>>=1, s+=n); s; };
%o A318445(n) = sumdiv(n,d,(d<n)*A005187(d));
%Y Cf. A005187, A293214, A293447, A318446, A318447.
%K nonn
%O 1,4
%A _Antti Karttunen_, Aug 26 2018
|
