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

-2, 0, 1, -3, 6, -9, 9, 1, -36, 126, -326, 726, -1452, 2640, -4356, 6436, -8256, 8568, -5864, 456, -911, 40106, -210419, 733448, -2085526, 5200300, -11748374, 24416952, -46909838, 82930836, -132479946, 182029056, -182029056, 0, 670853984, -2480588544

Offset: 1

Author

Clark Kimberling, Jun 06 2019

Keywords

• easy
• sign

Links

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

Crossrefs

Cf. A000201, A001622, A325745, A325664.

Programs

Mathematica

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