login
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).
4
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
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
KEYWORD
nonn
AUTHOR
Clark Kimberling, May 09 2011
STATUS
approved