This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A372456 #25 Jun 12 2024 17:05:07
%S A372456 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,
%T A372456 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,
%U A372456 0,1,1,0,0,1,0,0,1,0,0,1,0,0,1,1,0,1,1
%N A372456 a(n) = 1 if abs(tan(n)) > 1, 0 otherwise.
%H A372456 Amiram Eldar, <a href="/A372456/b372456.txt">Table of n, a(n) for n = 1..10000</a>
%e A372456 For n = 43, tan(43) = -1.498387339..., and abs(-1.498387339...) > 1, so a(43) = 1.
%t A372456 Table[Boole[Abs[Tan[n]] > 1], {n, 1, 100}] (* _Amiram Eldar_, May 02 2024 *)
%o A372456 (PARI) a(n) = abs(tan(n)) > 1; \\ _Michel Marcus_, May 01 2024
%Y A372456 Cf. A126565, A126564, A330035.
%K A372456 nonn,easy
%O A372456 1,1
%A A372456 _Ahmad J. Masad_, May 01 2024