A325729 First term of n-th difference sequence of (floor(k*r)), r = sqrt(1/2), k >= 0.

0, 1, -1, 0, 3, -9, 18, -27, 27, 1, -92, 309, -771, 1716, -3627, 7449, -14897, 28764, -52921, 91239, -143718, 196197, -196197, 0, 737817, -2785484, 7758154, -18894735, 42409968, -89718894, 180879813, -349599492, 650139687, -1166803109, 2028578278

Offset: 1

Author

Clark Kimberling, May 19 2019

Keywords

• easy
• sign

Links

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

Crossrefs

Cf. A325664.

Programs

Mathematica

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