A374136 a(n) = 1 if n is odd and the cyclotomic polynomial Phi(k,x) has height 1, i.e., is flat, otherwise 0. Here flat means that the coefficients of a polynomial are all -1, 0, or 1.

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

Offset

1

Links

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

Index entries for characteristic functions

Prog

(PARI) A374136(n) = (n%2 && 1==vecmax(abs(Vec(polcyclo(n)))));

Crossrefs

Characteristic function of A374137.

Differs from A000035 first at n=105, where a(105) = 0, while A000035(105) = 1.

Differs from A374134 first at n=255, where a(255) = 0, while A374134(255) = 1.

Sequence in context: A056594 A101455 A374134 * A091337 A166698 A250299

Adjacent sequences: A374133 A374134 A374135 * A374137 A374138 A374139

Keyword

nonn

Author

Antti Karttunen, Jul 06 2024

Status

approved