The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 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 (list; graph; refs; listen; history; text; internal format)
 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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified April 22 09:53 EDT 2024. Contains 371894 sequences. (Running on oeis4.)