A332430 a(n) = floor(2^n/(1 - cos(1/n))).

4, 32, 145, 514, 1605, 4618, 12565, 32810, 83029, 204970, 495957, 1180330, 2770261, 6425259, 14751062, 33565356, 75781465, 169913009, 378623329, 839035584, 1850037628, 4060785394, 8876545497, 19330149277, 41948632852, 90742369765, 195711818579, 420951537104

Offset

1,1

Links

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

Formula

a(n) = floor(2^n/(1 - cos(1/n))).

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, A332431, A332432, A332433, A332479.

Sequence in context: A088802 A123854 A301843 * A302070 A302267 A113154

Adjacent sequences: A332427 A332428 A332429 * A332431 A332432 A332433

Keyword

nonn,easy

Author

Clark Kimberling, Apr 04 2020

Status

approved