A235046 Characteristic function for A235033.

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

Offset

0

Comments

This is the characteristic function for A235033, cf. examples there. Cf. also the characteristic functions A236861 & A236862.

Links

Antti Karttunen, Table of n, a(n) for n = 0..8191

Formula

a(n) = 0 iff A236380(n)=0, 1 otherwise. [This formula completely defines the sequence]

Other observations, which partially describe the behavior of the sequence:

For all x, y > 0, if either a(x) = 1 or a(y) = 1, then both a(x*y) = 1 and a(A048720(x,y)) = 1.

If A010051(n)*A091247(n) = 1, then a(n) = 1. [n is in A091209]

If A066247(n)*A091225(n) = 1, then a(n) = 1. [n is in A091214]

Prog

(Scheme) (define (A235046 n) (if (zero? (A236380 n)) 0 1))

Crossrefs

Characteristic function of A235033.

Has zeros in the same positions as A236380.

Cf. also A010051, A066247, A048720, A061858, A091209, A091214, A091225, A091247, A235043, A235044, A234741 & A234742, A236861 & A236862.

Sequence in context: A215480 A143731 A079872 * A280046 A169672 A011672

Adjacent sequences: A235043 A235044 A235045 * A235047 A235048 A235049

Keyword

nonn

Author

Antti Karttunen, Jan 24 2014

Status

approved