A325752 First term of n-th difference sequence of (floor(r*k)), r = log(3), k >= 0.

1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, -11, 66, -286, 1001, -3003, 8008, -19448, 43758, -92378, 184757, -352737, 646877, -1145837, 1971882, -3321890, 5541965, -9324315, 16231215, -30045015, 60090031, -129024511, 290305576, -665732936, 1523150156, -3431847188

Offset: 1

Author

Clark Kimberling, Jun 07 2019

Keywords

• easy
• sign

Links

• Clark Kimberling, Table of n, a(n) for n = 1..200
• Sean A. Irvine, Java program (github)

Crossrefs

Cf. A002391, A059543.

Programs

Mathematica

Table[First[Differences[Table[Floor[n*Log[3]], {n, 0, 50}], n]], {n, 1, 50}]