A332479 a(n) = [2^n/(1 - cos(1/n))] - [2^n/(-1 + cot(1/n))] - [2^n/(1 - cos(1/n)) - 2^n/(-1 + cot(1/n))], where [ ] = floor.

1, 1, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 0, 0, 1, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 0, 1, 0, 1, 0, 0

Offset

1

Links

Table of n, a(n) for n=1..86.

Formula

a(n) = [2^n/(1 - cos(1/n))] - [2^n/(-1 + cot(1/n))] - [2^n/(1 - cos(1/n) -2^n/(-1 + cot(1/n))], where [ ] = floor.

Mathematica

z = 50; u = Table[Floor[2^n/(1 - Cos[1/n])], {n, 1, z}]    (* A332430 *)
v = Table[Floor[2^n/(-1 + Cot[1/n])], {n, 1, z}]  (* A332431 *)
u - v   (* A332432 *)
w = Table[Floor[2^n/(1 - Cos[1/n]) - 2^n/(-1 + Cot[1/n])], {n, 1, z}]
u - v - w  (* A332479 *)

Crossrefs

Cf. A333186, A333189, A332430, A332431, A332432, A332433.

Sequence in context: A170966 A190245 A328100 * A362460 A190210 A014394

Adjacent sequences: A332476 A332477 A332478 * A332480 A332481 A332482

Keyword

nonn,easy

Author

Clark Kimberling, Apr 05 2020

Status

approved