login
Numbers k such that floor(tan(k)) > floor(tan(m)) for all m < k.
1

%I #21 May 02 2023 17:49:40

%S 1,14,58,80,124,146,168,190,212,234,256,278,300,322,344,699,1054,1409,

%T 1764,2119,2474,2829,3184,3539,3894,4249,4604,4959,5314,5669,6024,

%U 6379,6734,7089,7444,7799,8154,8509,8864,9219,9574,9929,10284,10639,10994

%N Numbers k such that floor(tan(k)) > floor(tan(m)) for all m < k.

%H Harry J. Smith, <a href="/A063537/b063537.txt">Table of n, a(n) for n = 1..170</a>

%t DeleteDuplicates[Table[{n,Floor[Tan[n]]},{n,11000}],GreaterEqual[#1[[2]],#2[[2]]]&][[All,1]] (* _Harvey P. Dale_, Sep 10 2022 *)

%o (PARI) j=[]; for(n=1,25000,b=floor(tan(n)); if(b>a,a=b; j=concat(j,n))); j

%o (PARI) { default(realprecision, 50); n=0; a=0; for (m=1, 10^9, b=floor(tan(m)); if (b>a, a=b; write("b063537.txt", n++, " ", m); if (n==170, break)) ) } \\ _Harry J. Smith_, Aug 25 2009

%Y Cf. A000503, A024814.

%K nonn

%O 1,2

%A _Jason Earls_, Aug 10 2001