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

14, 28, 43, 57, 73, 87, 102, 116, 132, 146, 161, 175, 191, 205, 220, 234, 250, 264, 278, 293, 307, 323, 337, 352, 366, 382, 396, 411, 425, 441, 455, 470, 484, 500, 514, 528, 543, 557, 573, 587, 602, 616, 632, 646, 661, 675, 691, 705, 720, 734, 750, 764, 779

Offset

1,1

Comments

See Comments at A190082.

Links

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

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. A190083, A321370, A321372.

Sequence in context: A033026 A044839 A033011 * A077265 A033847 A067295

Adjacent sequences: A321368 A321369 A321370 * A321372 A321373 A321374

Keyword

nonn

Author

Clark Kimberling, Nov 08 2018

Status

approved