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

Author

N. J. A. Sloane

Keywords

• nonn

Links

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

Crossrefs

Cf. A000471.

Programs

Maple

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

Mathematica

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

Extensions

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