A000501 a(n) = floor(cosh(n)).

1, 1, 3, 10, 27, 74, 201, 548, 1490, 4051, 11013, 29937, 81377, 221206, 601302, 1634508, 4443055, 12077476, 32829984, 89241150, 242582597, 659407867, 1792456423, 4872401723, 13244561064, 36002449668, 97864804714, 266024120300, 723128532145, 1965667148572

Offset

0,3

Links

T. D. Noe, Table of n, a(n) for n = 0..250

Maple

f := n->floor(evalf(cosh(n)));

Mathematica

Table[Floor[Cosh[n]], {n, 0, 50}] (* T. D. Noe, Jun 20 2012 *)

Crossrefs

Cf. A000471.

Sequence in context: A271357 A085948 A000471 * A154496 A027251 A279136

Adjacent sequences: A000498 A000499 A000500 * A000502 A000503 A000504

Keyword

nonn

Author

N. J. A. Sloane

Extensions

Corrected and extended by Franklin T. Adams-Watters, Apr 26 2006

Status

approved