|
|
A321371
|
|
n + [n*r/s] + [n*t/s], where r = 1, s = cos(2*Pi/5), t = sec(2*Pi/5).
|
|
3
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|