login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


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 * A273159 A043481 A217009

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 | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 13 19:36 EDT 2021. Contains 343868 sequences. (Running on oeis4.)