A024811 - OEIS

%I #12 Apr 11 2021 16:11:29

%S 0,1,1,2,3,3,4,5,5,6,6,7,8,8,9,10,10,11,12,12,13,13,14,15,15,16,17,17,

%T 18,19,19,20,20,21,22,22,23,24,24,25,26,26,27,27,28,29,29,30,31,31,32,

%U 33,33,34,35,35,36,36,37,38,38,39,40,40,41,42,42,43,43,44,45,45,46,47,47,48,49,49,50,50

%N a(n) = floor(tan(m*Pi/2)), where m = 1 - 1/n.

%t Floor[Tan[Pi/2 (1-1/Range[80])]] (* _Harvey P. Dale_, Jul 25 2013 *)

%o (PARI) a(n) = floor(tan((1 - 1/n)*Pi/2)) \\ _Michel Marcus_, Mar 23 2013

%K nonn

%O 1,4

%A _Clark Kimberling_