%I #10 Aug 13 2021 22:48:44
%S 2,0,0,9,0,24,0,15,16,48,0,8,0,66,64,31,0,32,0,4,88,114,0,50,64,138,
%T 64,7,0,-116,0,63,152,192,176,80,0,210,184,90,0,-138,0,-1,80,252,0,94,
%U 121,-6,256,-5,0,28,304,125,280,324,0,390,0,342,136,127,368,-276,0,-20,336,-386,0,126,0,426,24,-17,418,-360,0
%N Sum of A005187 and its Dirichlet inverse.
%H Antti Karttunen, <a href="/A346238/b346238.txt">Table of n, a(n) for n = 1..16384</a>
%F a(n) = A005187(n) + A346237(n).
%o (PARI)
%o up_to = 65537;
%o DirInverseCorrect(v) = { my(u=vector(#v)); u[1] = (1/v[1]); for(n=2, #v, u[n] = (-u[1]*sumdiv(n, d, if(d<n, v[n/d]*u[d], 0)))); (u) }; \\ Compute the Dirichlet inverse of the sequence given in input vector v.
%o A005187(n) = { my(s=n); while(n>>=1, s+=n); s; };
%o v346237 = DirInverseCorrect(vector(up_to,n,A005187(n)));
%o A346237(n) = v346237[n];
%o A346238(n) = (A005187(n)+A346237(n));
%Y Cf. A005187, A346237.
%Y Cf. also A300244.
%K sign
%O 1,1
%A _Antti Karttunen_, Jul 13 2021