login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

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