login
A184745
floor(n*(e-1/2)+1/2); complement of A184744.
2
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
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
KEYWORD
nonn
AUTHOR
Clark Kimberling, Jan 20 2011
STATUS
approved