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

0, 1, -2, 4, -8, 16, -31, 56, -91, 126, -126, 0, 462, -1715, 4704, -11319, 25186, -52920, 105840, -201684, 364609, -618772, 964173, -1309574, 1309574, 1, -4970097, 18874639, -52835258, 129107566, -290081057, 612479308, -1227418279, 2343572690, -4261482736

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/3]*n], {n, 0, 50}], n]], {n, 1, 50}]