editing
approved
editing
approved
proposed
approved
editing
proposed
Table[First[Differences[Table[Floor[-Sqrt[8]*n], {n, 0, z30}], n]], {n, 0, 50}]
approved
editing
proposed
approved
editing
proposed
allocated for Clark KimberlingFirst term of n-th difference sequence of (floor(k*r)), r = -sqrt(8), k >= 0.
-3, 0, 0, 0, 0, 1, -6, 21, -56, 126, -252, 463, -804, 1365, -2366, 4368, -8736, 18565, -40410, 87381, -184604, 379050, -758100, 1486675, -2884776, 5592405, -10919090, 21572460, -43144920, 87087001, -176565486, 357913941, -723002336, 1453179126, -2906358251
1,1
Clark Kimberling, <a href="/A325675/b325675.txt">Table of n, a(n) for n = 1..200</a>
Table[First[Differences[Table[Floor[-Sqrt[8]*n], {n, 0, z}], n]], {n, 0, 50}]
allocated
easy,sign
Clark Kimberling, May 15 2019
approved
editing
allocated for Clark Kimberling
allocated
approved