A345064 a(n) = 1 if A071324(n) is equal to A206369(n), otherwise 0; characteristic function of A317923.

1, 1, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 1, 0, 0, 1, 0, 1, 0, 0, 1, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 1, 1, 1, 0, 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) = [A071324(n) = A206369(n)], where [ ] is the Iverson bracket.

a(n) = [A345062(n)==1] * [A345063(n)==1].

a(n) = 1 iff A345060(n) = 0.

a(n) >= A010055(n) for all n.

Prog

(PARI)
A071324(n) = my(d=Vecrev(divisors(n))); sum(k=1, #d, (-1)^(k+1)*d[k]); \\ From A071324
A206369(n) = sumdiv(n, d, eulerphi(n/d) * issquare(d)); \\ From A206369
A345064(n) = (A071324(n)==A206369(n));

Crossrefs

Characteristic function of A317923.

Cf. A010055, A071324, A206369, A345060, A345061, A345062, A345063.

Sequence in context: A324290 A325964 A344885 * A076699 A142720 A196308

Adjacent sequences: A345061 A345062 A345063 * A345065 A345066 A345067

Keyword

nonn

Author

Antti Karttunen, Jun 07 2021

Status

approved