login
A190306
a(n) = n + [n*r/t] + [n*s/t]; r=1, s=csch(1), t=sech(1).
3
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
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
Sequence in context: A288175 A214066 A120738 * A189530 A292662 A332027
KEYWORD
nonn
AUTHOR
Clark Kimberling, May 07 2011
EXTENSIONS
Definition corrected by Georg Fischer, Jun 10 2020
STATUS
approved