A184741 floor(n*s+h-h*s), where s=(e-1)/(e-2) and h=-1/2; complement of A184740.

3, 5, 7, 10, 12, 15, 17, 19, 22, 24, 27, 29, 31, 34, 36, 38, 41, 43, 46, 48, 50, 53, 55, 58, 60, 62, 65, 67, 70, 72, 74, 77, 79, 82, 84, 86, 89, 91, 93, 96, 98, 101, 103, 105, 108, 110, 113, 115, 117, 120, 122, 125, 127, 129, 132, 134, 137, 139, 141, 144, 146, 149, 151, 153, 156, 158, 160, 163, 165, 168, 170, 172, 175, 177, 180, 182, 184, 187, 189, 192, 194, 196, 199, 201, 204, 206, 208, 211, 213, 215, 218, 220, 223, 225, 227, 230, 232, 235, 237, 239, 242, 244, 247, 249, 251, 254, 256, 259, 261, 263, 266, 268, 271, 273, 275, 278, 280, 282, 285, 287

Offset

1,1

Links

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

Formula

a(n)=floor(n*s+h-h*s), where s=(e-1)/(e-2) and h=-1/2.

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. A184740

Sequence in context: A184653 A263085 A206334 * A020959 A175312 A057640

Adjacent sequences: A184738 A184739 A184740 * A184742 A184743 A184744

Keyword

nonn

Author

Clark Kimberling, Jan 20 2011

Status

approved