login
A235046
Characteristic function for A235033.
4
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
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.
Sequence in context: A215480 A143731 A079872 * A280046 A169672 A011672
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jan 24 2014
STATUS
approved