A378215 Parity of A378213, where A378213 is the Dirichlet inverse of A140773.

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

Offset

1

Comments

Differs from A369255 at n = 36, 100, 196, 216, 225, 256, 360, 441, 484, 504, ...

Links

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

Index entries for characteristic functions

Formula

a(n) = A378213(n) mod 2 = A378214(n) mod 2.

Prog

(PARI)
A065043(n) = (1 - (bigomega(n)%2));
A038548(n) = sumdiv(n, d, A065043(d));
A140773(n) = sumdiv(n, d, A038548(d));
memoA378213 = Map();
A378213(n) = if(1==n, 1, my(v); if(mapisdefined(memoA378213, n, &v), v, v = -sumdiv(n, d, if(d<n, A140773(n/d)*A378213(d), 0)); mapput(memoA378213, n, v); (v)));
A378215(n) = (A378213(n)%2);

Crossrefs

Cf. A140773, A369255, A378213, A378214.

Sequence in context: A354819 A322075 A369255 * A288220 A173856 A288926

Adjacent sequences: A378212 A378213 A378214 * A378216 A378217 A378218

Keyword

nonn

Author

Antti Karttunen, Nov 22 2024

Status

approved