A190306 a(n) = n + [n*r/t] + [n*s/t]; r=1, s=csch(1), t=sech(1).

3, 7, 10, 15, 18, 22, 26, 30, 33, 38, 41, 45, 50, 53, 57, 61, 65, 68, 72, 76, 80, 83, 88, 92, 95, 100, 103, 107, 111, 115, 118, 123, 126, 130, 134, 138, 142, 145, 150, 153, 157, 161, 165, 168, 173, 176, 180, 185, 188, 192, 195, 200, 203, 207, 211, 215, 218, 223, 227, 230, 235, 238, 242, 246, 250, 253, 257, 261, 265, 269, 273, 277, 280

Offset

1,1

Comments

See A190304.

Links

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

Formula

A190304: a(n)=n+[n*csch(1)]+[n*sech(1)].

A190305: b(n)=n+[n*sinh(1)]+[n*tanh(1)].

A190306: c(n)=n+[n*cosh(1)]+[n*coth(1)].

Mathematica

r=1; s=Csch[1]; t=Sech[1];
a[n_] := n + Floor[n*s/r] + Floor[n*t/r];
b[n_] := n + Floor[n*r/s] + Floor[n*t/s];
c[n_] := n + Floor[n*r/t] + Floor[n*s/t];
Table[a[n], {n, 1, 120}]  (* A190304 *)
Table[b[n], {n, 1, 120}]  (* A190305 *)
Table[c[n], {n, 1, 120}]  (* A190306 *)

Prog

(PARI) for(n=1, 80, print1(n + floor(n*cosh(1)) + floor(n/tanh(1)), ", ")) \\ G. C. Greubel, Dec 29 2017
(Magma) [n + Floor(n*Cosh(1)) + Floor(n/Tanh(1)): n in [1..80]]; // G. C. Greubel, Dec 29 2017

Crossrefs

Cf. A190304, A190305.

Sequence in context: A288175 A214066 A120738 * A189530 A292662 A332027

Adjacent sequences: A190303 A190304 A190305 * A190307 A190308 A190309

Keyword

nonn

Author

Clark Kimberling, May 07 2011

Extensions

Definition corrected by Georg Fischer, Jun 10 2020

Status

approved