A321370 n + [n*s/r] + [n*t/r], where r = 1, s = cos(2*Pi/5), t = sec(2*Pi/5).

4, 8, 12, 17, 22, 26, 31, 35, 40, 45, 49, 53, 59, 63, 67, 71, 77, 81, 85, 90, 94, 99, 104, 108, 112, 118, 122, 126, 130, 136, 140, 144, 149, 154, 158, 163, 167, 171, 177, 181, 185, 189, 195, 199, 203, 208, 213, 217, 222, 226, 231, 236, 240, 244, 248, 254

Offset

1,1

Comments

See Comments at A190082.

Links

Clark Kimberling, Table of n, a(n) for n = 1..10000

Mathematica

r = 1; s = Cos[2 Pi/5]; t = Sec[2 Pi/5];
a[n_] := n + Floor[n*s/r] + Floor[n*t/r];
b[n_] := n + Floor[n*r/s] + Floor[n*t/s];
c[n_] := n + Floor[n*r/t] + Floor[n*s/t];
z = 120;
Table[a[n], {n, 1, z}]  (* A321370 *)
Table[b[n], {n, 1, z}]  (* A321371 *)
Table[c[n], {n, 1, z}]  (* A321372 *)

Crossrefs

Cf. A190082, A321371, A321372.

Sequence in context: A311515 A311516 A311517 * A311518 A311519 A311520

Adjacent sequences: A321367 A321368 A321369 * A321371 A321372 A321373

Keyword

nonn

Author

Clark Kimberling, Nov 08 2018

Status

approved