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
Examples
For n = 43, tan(43) = -1.498387339..., and abs(-1.498387339...) > 1, so a(43) = 1.
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
Table[Boole[Abs[Tan[n]] > 1], {n, 1, 100}] (* Amiram Eldar, May 02 2024 *)
-
PARI
a(n) = abs(tan(n)) > 1; \\ Michel Marcus, May 01 2024