A325673 First term of n-th difference sequence of (floor(k*r)), r = -sqrt(7), k >= 0.

-3, 0, 1, -3, 6, -9, 9, 0, -27, 81, -162, 243, -243, 0, 729, -2187, 4375, -6579, 6732, -1139, -13719, 32946, -18921, -158355, 851598, -2896919, 8097219, -20058300, 45540943, -96506229, 193012458, -367077447, 667617642, -1166803109, 1968991969, -3225375252

Offset: 1

Author

Clark Kimberling, May 15 2019

Keywords

• easy
• sign

Links

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

Crossrefs

Cf. A022841, A325664, A325672.

Programs

Mathematica

Table[First[Differences[Table[Floor[-Sqrt[7]*n], {n, 0, 30}], n]], {n, 0, 50}]