A184745 floor(n*(e-1/2)+1/2); complement of A184744.

2, 6, 9, 13, 17, 20, 24, 28, 32, 35, 39, 43, 46, 50, 54, 58, 61, 65, 69, 73, 76, 80, 84, 87, 91, 95, 99, 102, 106, 110, 113, 117, 121, 125, 128, 132, 136, 139, 143, 147, 151, 154, 158, 162, 165, 169, 173, 177, 180, 184, 188, 191, 195, 199, 203, 206, 210, 214, 218, 221, 225, 229, 232, 236, 240, 244, 247, 251, 255, 258, 262, 266, 270, 273, 277, 281, 284, 288, 292, 296, 299, 303, 307, 310, 314, 318, 322, 325, 329, 333, 337, 340, 344, 348, 351, 355, 359, 363, 366, 370, 374, 377, 381, 385, 389, 392, 396, 400, 403, 407, 411, 415, 418, 422, 426, 429, 433, 437, 441, 444

Offset

1,1

Links

Table of n, a(n) for n=1..120.

Formula

a(n)=floor(n*(e-1/2)+1/2).

Mathematica

r=1+1/E; h=1/2; s=r/(r-1);
Table[Floor[n*r+h], {n, 1, 120}]  (* A184744 *)
Table[Floor[n*s+h-h*s], {n, 1, 120}]  (* A184745 *)

Crossrefs

Cf. A184744.

Sequence in context: A047276 A171639 A054770 * A113689 A190707 A020960

Adjacent sequences: A184742 A184743 A184744 * A184746 A184747 A184748

Keyword

nonn

Author

Clark Kimberling, Jan 20 2011

Status

approved