|
%I #10 Jan 06 2021 09:07:07
%S 1,-3,-2,3,-7,7,-4,-3,-9,27,-14,-10,-11,15,20,3,-25,35,-26,-45,-15,55,
%T -28,13,28,43,22,-24,-19,-91,-16,-3,7,99,6,-58,-55,103,-8,63,-61,55,
%U -62,-94,71,111,-56,-16,-25,-148,58,-73,-47,-107,152,33,67,75,-38,196,-35,63,148,3,57,-53,-98,-171,9,-59,-100,78,-109,219,-208,-178,5,13
%N Dirichlet inverse of binary Gray code, A003188.
%H Antti Karttunen, <a href="/A323895/b323895.txt">Table of n, a(n) for n = 1..16384</a>
%o (PARI)
%o up_to = 16384;
%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 (correctly!)
%o A003188(n) = bitxor(n, n>>1);
%o v323895 = DirInverseCorrect(vector(up_to,n,A003188(n)));
%o A323895(n) = v323895[n];
%Y Cf. A003188, A323896.
%K sign,look
%O 1,2
%A _Antti Karttunen_, Feb 08 2019
|
