A372456 a(n) = 1 if abs(tan(n)) > 1, 0 otherwise.

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

Offset

1,1

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Example

For n = 43, tan(43) = -1.498387339..., and abs(-1.498387339...) > 1, so a(43) = 1.

Mathematica

Table[Boole[Abs[Tan[n]] > 1], {n, 1, 100}] (* Amiram Eldar, May 02 2024 *)

Prog

(PARI) a(n) = abs(tan(n)) > 1; \\ Michel Marcus, May 01 2024

Crossrefs

Cf. A126565, A126564, A330035.

Sequence in context: A041004 A141736 A190188 * A278513 A134842 A167753

Adjacent sequences: A372453 A372454 A372455 * A372457 A372458 A372459

Keyword

nonn,easy

Author

Ahmad J. Masad, May 01 2024

Status

approved