A184740 floor(n*(e-1)-1/2); complement of A184741.

1, 2, 4, 6, 8, 9, 11, 13, 14, 16, 18, 20, 21, 23, 25, 26, 28, 30, 32, 33, 35, 37, 39, 40, 42, 44, 45, 47, 49, 51, 52, 54, 56, 57, 59, 61, 63, 64, 66, 68, 69, 71, 73, 75, 76, 78, 80, 81, 83, 85, 87, 88, 90, 92, 94, 95, 97, 99, 100, 102, 104, 106, 107, 109, 111, 112, 114, 116, 118, 119, 121, 123, 124, 126, 128, 130, 131, 133, 135, 136, 138, 140, 142, 143, 145, 147, 148, 150, 152, 154, 155, 157, 159, 161, 162, 164, 166, 167, 169, 171, 173, 174, 176, 178, 179, 181, 183, 185, 186, 188, 190, 191, 193, 195, 197, 198, 200, 202, 203, 205

Offset

1,2

Links

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

Formula

a(n)=floor(n*e-1/2); complement of A184741.

Mathematica

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

Crossrefs

Cf. A184741.

Sequence in context: A114571 A376452 A050091 * A184638 A047294 A195173

Adjacent sequences: A184737 A184738 A184739 * A184741 A184742 A184743

Keyword

nonn

Author

Clark Kimberling, Jan 20 2011

Status

approved