A190371 a(n) = n + [n*r/u] + [n*s/u] + [n*t/u]; r=sin(Pi/5), s=cos(Pi/5), t=sin(2*Pi/5), u=cos(2*Pi/5).

7, 16, 24, 33, 42, 50, 59, 67, 76, 85, 92, 101, 111, 119, 128, 136, 145, 154, 162, 171, 178, 187, 196, 204, 213, 223, 231, 240, 248, 257, 265, 273, 282, 291, 299, 308, 316, 325, 335, 343, 351, 359, 368, 377, 385, 394, 403, 411, 420, 428, 437, 446, 454, 463, 471, 480, 489, 497, 506, 515, 523, 531, 539, 548, 558, 566, 575, 584, 592

Offset

1,1

Comments

See A190368.

Links

G. C. Greubel, Table of n, a(n) for n = 1..10000

Mathematica

r=Sin[Pi/5]; s=Cos[Pi/5]; t=Sin[2Pi/5]; u=Cos[2Pi/5];
f[n_] := n + Floor[n*s/r] + Floor[n*t/r] + Floor[n*u/r];
g[n_] := n + Floor[n*r/s] + Floor[n*t/s] + Floor[n*u/s];
h[n_] := n + Floor[n*r/t] + Floor[n*s/t] + Floor[n*u/t];
i[n_] := n + Floor[n*r/u] + Floor[n*s/u] + Floor[n*t/u];
Table[f[n], {n, 1, 120}]  (* A190368 *)
Table[g[n], {n, 1, 120}]  (* A190369 *)
Table[h[n], {n, 1, 120}]  (* A190370 *)
Table[i[n], {n, 1, 120}]  (* A190371 *)

Prog

(PARI) for(n=1, 100, print1(n + floor(n*sin(Pi/5)/cos(2*Pi/5)) + floor(2*n*cos(Pi/5)/cos(2*Pi/5)) + floor(n*tan(2*Pi/5)), ", ")) \\ G. C. Greubel, Apr 05 2018
(Magma) R:=RealField(); [n + Floor(n*Sin(Pi(R)/5)/Cos(2*Pi(R)/5)) + Floor(2*n*cos(Pi(R)/5)/Cos(2*Pi(R)/5)) + Floor(n*Tan(2*Pi(R)/5)): n in [1..100]]; // G. C. Greubel, Apr 05 2018

Crossrefs

Cf. A190368, A190369, A190370.

Sequence in context: A044440 A114556 A136772 * A367084 A273159 A043481

Adjacent sequences: A190368 A190369 A190370 * A190372 A190373 A190374

Keyword

nonn

Author

Clark Kimberling, May 09 2011

Status

approved