|
%I #4 Jun 06 2019 22:00:45
%S -2,0,1,-3,6,-9,9,1,-36,126,-326,726,-1452,2640,-4356,6436,-8256,8568,
%T -5864,456,-911,40106,-210419,733448,-2085526,5200300,-11748374,
%U 24416952,-46909838,82930836,-132479946,182029056,-182029056,0,670853984,-2480588544
%N First term of n-th difference sequence of (floor(r*k)), r = -(1+sqrt(5))/2, k >= 0.
%H Clark Kimberling, <a href="/A325746/b325746.txt">Table of n, a(n) for n = 1..200</a>
%t Table[First[Differences[Table[Floor[-GoldenRatio*n], {n, 0, 50}], n]], {n, 2, 50}]
%Y Cf. A000201, A001622, A325745, A325664.
%K easy,sign
%O 1,1
%A _Clark Kimberling_, Jun 06 2019
|
