|
%I #5 Mar 31 2020 10:19:53
%S 1,7,23,62,157,380,889,2037,4589,10205,22465,49038,106285,228985,
%T 490791,1047210,2225653,4713736,9952272,20954040,44006898,92211129,
%U 192816394,402420140,838413359,1743970009,3622221495,7512996836,15563085028,32200323371,66548900263
%N a(n) = floor(2^n cot(1/n)).
%F a(n) = floor(2^n cot(1/n)).
%t z = 50; u = Table[Floor[2^n Csc[1/n]], {n, 1, z}] (* A333186 *)
%t v = Table[Floor[2^n Cot[1/n]], {n, 1, z}] (* A333187 *)
%t u - v (* A333188 *)
%t w = Table[Floor[2^n Csc[1/n] - 2^n Cot[1/n]], {n, 1, z}];
%t u - v - w (* A333189 *)
%Y Cf. A333186, A333188, A333189.
%K nonn,easy
%O 1,2
%A _Clark Kimberling_, Mar 11 2020
|
