A360123 Parity of A347389, where A347389 is Dirichlet convolution of A003415(n) with A003415(A276086(n)).

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

Offset

1

Links

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

Index entries for characteristic functions

Index entries for sequences related to primorial base

Formula

a(n) = A000035(A347389(n)).

Apparently, a(n) <= A360122(n) for all n. [See A360124 for the positions of differences]

Prog

(PARI)
A003415(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]/f[i, 1]));
A276086(n) = { my(m=1, p=2); while(n, m *= (p^(n%p)); n = n\p; p = nextprime(1+p)); (m); };
A347389(n) = sumdiv(n, d, A003415(n/d) * A003415(A276086(d)));
A360123(n) = (A347389(n)%2);

Crossrefs

Cf. A000035, A003415, A276086, A347389, A360124.

Cf. also A360122, A360125.

Sequence in context: A106549 A075897 A135947 * A211487 A101040 A341591

Adjacent sequences: A360120 A360121 A360122 * A360124 A360125 A360126

Keyword

nonn

Author

Antti Karttunen, Feb 19 2023

Status

approved