A320106 Möbius transform of A320107.

1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 1, 1, 0, 0

Offset

1

Links

Antti Karttunen, Table of n, a(n) for n = 1..65537

Index entries for characteristic functions

Formula

a(n) = Sum_{d|n} A008683(n/d) * A320107(d), where A008683 is Möbius mu-function.

Prog

(PARI)
A001227(n) = numdiv(n>>valuation(n, 2));
A064989(n) = {my(f); f = factor(n); if((n>1 && f[1, 1]==2), f[1, 2] = 0); for (i=1, #f~, f[i, 1] = precprime(f[i, 1]-1)); factorback(f)};
A252463(n) = if(!(n%2), n/2, A064989(n));
A320107(n) = A001227(A252463(n));
A320106(n) = sumdiv(n, d, moebius(n/d)*A320107(d));

Crossrefs

Sequence in context: A104107 A120532 A373156 * A303561 A284680 A004555

Adjacent sequences: A320103 A320104 A320105 * A320107 A320108 A320109

Keyword

nonn

Author

Antti Karttunen, Nov 22 2018

Status

approved