A380445 a(n) = 1 if A339792(n) is 0, otherwise 0, where A339792(n) is the third coefficient of the lindep transform of sigma.

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

Offset

1

Links

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

Index entries for characteristic functions.

Index entries for sequences related to sigma(n).

Formula

a(n) = [A339792(n) = 0], where [ ] is the Iverson bracket.

Prog

(PARI)
A339792(n) = { my(v=lindep([sigma(n), n, 1])); (v*sign(v[1]))[3]; };
A380445(n) = !A339792(n);

Crossrefs

Characteristic function of A380446.

Cf. A000203, A339792.

Sequence in context: A016284 A016346 A016389 * A014534 A015059 A016337

Adjacent sequences: A380442 A380443 A380444 * A380446 A380447 A380448

Keyword

nonn,new

Author

Antti Karttunen, Jan 25 2025

Status

approved