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

-2, 1, -2, 4, -8, 16, -31, 56, -91, 126, -126, 1, 449, -1624, 4249, -9499, 18998, -34356, 55453, -75734, 70889, 26334, -379050, 1352079, -3713651, 9000226, -20136807, 42409969, -84819938, 161567266, -292710631, 501416816, -801992971, 1167081366, -1453179126

Offset: 1

Author

Clark Kimberling, May 12 2019

Keywords

• easy
• sign

Links

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

Crossrefs

Cf. A001951, A325664.

Programs

Mathematica

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