BBC Russian

A359824

Parity of A359823, where A359823 is the Dirichlet inverse of A359820.

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

LINKS

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

Index entries for characteristic functions

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. A359820, A359820.

Cf. also A359764 [= a(A003961(n))].

Sequence in context: A331281 A347950 A105470 * A087429 A093075 A104120

Adjacent sequences: A359821 A359822 A359823 * A359825 A359826 A359827

KEYWORD

nonn

AUTHOR

Antti Karttunen, Jan 14 2023

STATUS

approved