A295297 a(n) = (A000120(n) + A000203(n)) mod 2.

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

Offset

1

Comments

Characteristic function of A295299.

Links

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

Index entries for sequences related to binary expansion of n

Index entries for characteristic functions

Index entries for sequences related to sigma(n)

Formula

a(n) = A000035(A000120(n) + A000203(n)).

a(n) = A010060(n) XOR A053866(n), where XOR is a bitwise-XOR (A003987).

a(n) = A294898(n) mod 2 = A294899(n) mod 2.

a(n) = A295875(A156552(n)). - Antti Karttunen, Dec 02 2017

Mathematica

Array[Mod[DivisorSigma[1, #] + DigitCount[#, 2, 1], 2] &, 120] (* Michael De Vlieger, Nov 26 2017 *)

Prog

(Scheme) (define (A295297 n) (A000035 (+ (A000203 n) (A000120 n))))
(PARI) a(n) = (hammingweight(n) + sigma(n)) % 2; \\ Michel Marcus, Dec 02 2017

Crossrefs

Cf. A295298 (positions of zeros), A295299 (of nonzeros).

Cf. A003987, A000120, A000203, A010060, A053866, A294898, A294899, A295296, A295875.

Sequence in context: A277147 A248747 A369665 * A011691 A011684 A011674

Adjacent sequences: A295294 A295295 A295296 * A295298 A295299 A295300

Keyword

nonn

Author

Antti Karttunen, Nov 26 2017

Status

approved