login
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.
5
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
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
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Apr 05 2020
STATUS
approved