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