A325751 First term of n-th difference sequence of (floor(r*k)), r = log(2), k >= 0.

0, 1, -1, 0, 3, -9, 18, -27, 27, 0, -81, 243, -485, 715, -624, -559, 4550, -14976, 39286, -92378, 203034, -424346, 848692, -1625754, 2977832, -5200299, 8628633, -13553462, 20083622, -28009215, 36801609, -45932172, 55400904, -64869636, 64869636, 0, -349578528

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

Programs

Mathematica

Table[First[Differences[Table[Floor[n*Log[2]], {n, 0, 50}], n]], {n, 1, 50}]