A184590 floor[(n*e+1)/(e-1)]; complement of A184589.

2, 3, 5, 6, 8, 10, 11, 13, 14, 16, 17, 19, 21, 22, 24, 25, 27, 29, 30, 32, 33, 35, 36, 38, 40, 41, 43, 44, 46, 48, 49, 51, 52, 54, 55, 57, 59, 60, 62, 63, 65, 67, 68, 70, 71, 73, 74, 76, 78, 79, 81, 82, 84, 86, 87, 89, 90, 92, 93, 95, 97, 98, 100, 101, 103, 104, 106, 108, 109, 111, 112, 114, 116, 117, 119, 120, 122, 123, 125, 127, 128, 130, 131, 133, 135, 136, 138, 139, 141, 142, 144, 146, 147, 149, 150, 152, 154, 155, 157, 158, 160, 161, 163, 165, 166, 168, 169, 171, 173, 174, 176, 177, 179, 180, 182, 184, 185, 187, 188, 190

Offset

1,1

Links

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

Formula

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

Mathematica

r=E; c=1/E; s=r/(r-1);
Table[Floor[n*r-c*r], {n, 1, 120}]  (* A184589 *)
Table[Floor[n*s+c*s], {n, 1, 120}]  (* A184590 *)

Crossrefs

Cf. A184589.

Sequence in context: A138390 A257804 A285209 * A047448 A260396 A029921

Adjacent sequences: A184587 A184588 A184589 * A184591 A184592 A184593

Keyword

nonn

Author

Clark Kimberling, Jan 17 2011

Status

approved