A190523 a(n) = n + [nr/v] + [ns/v] + [nt/v] + [nu/v] + [nw/v], where r=sin(x), s=cos(x), t=tan(x), u=csc(x), v=sec(x), w=cot(x), x=2*Pi/5.

1, 3, 5, 9, 11, 13, 17, 19, 21, 25, 29, 31, 34, 37, 39, 42, 44, 47, 50, 53, 56, 59, 61, 64, 67, 69, 71, 75, 77, 80, 84, 87, 89, 92, 95, 97, 100, 103, 105, 108, 111, 114, 116, 119, 122, 124, 127, 130, 132, 136, 138, 141, 145, 147, 150, 153, 155, 158, 161, 164, 166, 169, 172, 174, 178, 180, 182, 185, 188, 191, 194, 197, 199, 203, 206, 208

Offset

1,2

Comments

See A190519.

Links

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

Mathematica

(See A190519.)
f[n_]:=Module[{x, r, s, t, u, v, w}, x=2 Pi/5; r=Sin[x]; s=Cos[x]; t=Tan[x]; u=Csc[x]; v=Sec[x]; w=Cot[x]; n+Floor[n r/v]+Floor[n s/v]+Floor[n t/v]+Floor[n u/v]+Floor[n w/v]]; Array[f, 100] (* Harvey P. Dale, Apr 21 2025 *)

Crossrefs

Cf. A190519.

Sequence in context: A141231 A287344 A047623 * A161781 A007950 A391719

Adjacent sequences: A190520 A190521 A190522 * A190524 A190525 A190526

Keyword

nonn

Author

Clark Kimberling, May 11 2011

Status

approved