login
A359824
Parity of A359823, where A359823 is the Dirichlet inverse of A359820.
5
1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 0, 0, 1, 1, 1, 0, 1, 0, 0, 1, 1, 0, 1, 1, 1, 0, 0, 0, 1, 0, 1, 1, 1, 1, 0, 0, 1, 1, 1, 0, 1, 0, 0, 0, 1, 0, 0, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 1, 1, 0, 0, 0, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 1
OFFSET
1
PROG
(PARI)
A003415(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]/f[i, 1]));
A359820(n) = ((n+A003415(n))%2);
memoA359823 = Map();
A359823(n) = if(1==n, 1, my(v); if(mapisdefined(memoA359823, n, &v), v, v = -sumdiv(n, d, if(d<n, A359820(n/d)*A359823(d), 0)); mapput(memoA359823, n, v); (v)));
A359824(n) = (A359823(n)%2);
CROSSREFS
Characteristic function of A359825.
Parity of A347082, A347084 and A359823.
Cf. also A359764 [= a(A003961(n))].
Sequence in context: A331281 A347950 A105470 * A087429 A093075 A104120
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jan 14 2023
STATUS
approved