A184744 floor(nr+h), where r=1+1/e, h=1/2; complement of A184745.

1, 3, 4, 5, 7, 8, 10, 11, 12, 14, 15, 16, 18, 19, 21, 22, 23, 25, 26, 27, 29, 30, 31, 33, 34, 36, 37, 38, 40, 41, 42, 44, 45, 47, 48, 49, 51, 52, 53, 55, 56, 57, 59, 60, 62, 63, 64, 66, 67, 68, 70, 71, 72, 74, 75, 77, 78, 79, 81, 82, 83, 85, 86, 88, 89, 90, 92, 93, 94, 96, 97, 98, 100, 101, 103, 104, 105, 107, 108, 109, 111, 112, 114, 115, 116, 118, 119, 120, 122, 123, 124, 126, 127, 129, 130, 131, 133, 134, 135, 137, 138, 140, 141, 142, 144, 145, 146, 148, 149, 150, 152, 153, 155, 156, 157, 159, 160, 161, 163, 164

Offset

1,2

Links

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

Formula

a(n)=floor(nr+h), where r=1+1/e, h=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. A184745.

Sequence in context: A367107 A298108 A330993 * A063732 A047367 A184620

Adjacent sequences: A184741 A184742 A184743 * A184745 A184746 A184747

Keyword

nonn

Author

Clark Kimberling, Jan 20 2011

Status

approved