|
%I #6 Jun 13 2018 23:10:56
%S 1,0,0,1,0,1,0,0,2,3,0,-1,0,1,2,2,0,-2,0,-3,2,3,0,0,2,3,2,3,0,-5,0,-2,
%T 2,3,4,4,0,1,2,2,0,-3,0,-3,-2,3,0,-2,2,-2,4,1,0,-2,2,-2,4,5,0,3,0,1,
%U -2,2,4,-1,0,-3,2,-5,0,-4,0,1,-2,1,4,-1,0,-4,-2,3,0,-3,2,3,4,4,0,2,2,-1,4,5,6,8,0,-2,-2,2,0,-7,0,-4,-6
%N Möbius transform of A175851.
%H Antti Karttunen, <a href="/A305806/b305806.txt">Table of n, a(n) for n = 1..65537</a>
%F a(n) = Sum_{d|n} A008683(n/d)*A175851(d).
%o (PARI)
%o A175851(n) = if(1==n,n,1 + n - precprime(n));
%o A305806(n) = sumdiv(n,d,moebius(n/d)*A175851(d));
%Y Cf. A008683, A175851, A305791, A305805.
%K sign
%O 1,9
%A _Antti Karttunen_, Jun 13 2018
|
