A262683 Characteristic function for A182859.

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

Offset

1

Links

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

Formula

a(n) = 1 - A000035(A036459(n)).

a(n) = 1 - A262684(n).

Prog

(Scheme) (define (A262683 n) (- 1 (A000035 (A036459 n))))

Crossrefs

Cf. A000005, A000035, A036459, A182859.

Binary complement: A262684.

Partial sums: A262685.

Sequence in context: A355449 A058840 A266155 * A359816 A321083 A154269

Adjacent sequences: A262680 A262681 A262682 * A262684 A262685 A262686

Keyword

nonn

Author

Antti Karttunen, Sep 28 2015

Status

approved