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

1, 1, -1, 1, -1, 1, -1, 1, -1, 1, -1, 0, 11, -77, 363, -1364, 4367, -12375, 31823, -75581, 167959, -352715, 705431, -1352078, 2496167, -4457699, 7728759, -13055444, 21572459, -35072309, 56663099, -92561039, 157073279, -286097759, 572195518, -1251677664

Offset: 1

Author

Clark Kimberling, May 20 2019

Keywords

• easy
• sign

Links

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

Crossrefs

Cf. A325664. Inverse binomial transform of A137803.

Programs

Mathematica

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