|
%I #14 Jun 21 2021 06:05:50
%S 1,2,1,4,3,-1,5,8,6,-2,9,1,11,-1,0,16,15,-1,17,7,-1,-1,21,-1,20,-2,18,
%T -4,27,11,29,32,0,-2,5,-5,35,-1,-1,-8,39,14,41,17,-2,-1,45,1,42,0,0,
%U 23,51,1,-3,33,-1,-2,57,-12,59,-1,15,64,10,0,65,-4,0,7,69,48,71,-2,-1,33,6,1,77,33,54,-2,81,27,15,-1,0
%N Möbius transform of A011772.
%H Antti Karttunen, <a href="/A344767/b344767.txt">Table of n, a(n) for n = 1..16384</a>
%F a(n) = Sum_{d|n} A008683(n/d) * A011772(d).
%o (PARI) A344767(n) = sumdiv(n,d,moebius(n/d)*A011772(d));
%o (Python 3.8+)
%o from itertools import combinations
%o from math import prod
%o from sympy import factorint, divisors
%o from sympy.ntheory.modular import crt
%o from sympy.ntheory import mobius
%o def A011772(n):
%o plist = [p**q for p, q in factorint(2*n).items()]
%o return 2*n-1 if len(plist) == 1 else min(min(crt([m,2*n//m],[0,-1])[0],crt([2*n//m,m],[0,-1])[0]) for m in (prod(d) for l in range(1,len(plist)//2+1) for d in combinations(plist,l)))
%o def A344767(n): return sum(mobius(n//d)*A011772(d) for d in divisors(n,generator=True)) # _Chai Wah Wu_, Jun 20 2021
%Y Cf. A008683, A011772, A344768.
%K sign,look
%O 1,2
%A _Antti Karttunen_, May 30 2021
|
