A325749 First term of n-th difference sequence of (floor(e*k/(e-1))), k >= 0.

1, 1, -2, 4, -8, 16, -31, 56, -91, 126, -126, 0, 462, -1715, 4704, -11319, 25186, -52920, 105841, -201704, 364819, -620312, 973028, -1352078, 1486674, -657799, -2750022, 11967739, -32805248, 74480266, -148960531, 265105676, -408608551, 487599186, -201501426

Offset: 1

Author

Clark Kimberling, Jun 07 2019

Keywords

• easy
• sign

Links

• Clark Kimberling, Table of n, a(n) for n = 1..200

Crossrefs

Cf. A054385.

Programs

Mathematica

Table[First[Differences[Table[Floor[n*E/(E-1)], {n, 0, 50}], n]], {n, 1, 50}]