OFFSET
0,3
LINKS
Michael De Vlieger, Table of n, a(n) for n = 0..10000
Dorin Andrica, Ovidiu Bagdasar, and George Cătălin Tųrcąs, On some new results for the generalised Lucas sequences, An. Şt. Univ. Ovidius Constanţa (Romania, 2021) Vol. 29, No. 1, 17-36. See Section 5.6, pp. 35, Table 7.
EXAMPLE
MATHEMATICA
Block[{a = 1, b = -2, nn = 105, u, v = {}}, u = {2, a}; Do[AppendTo[u, Total[{-b, a} u[[-2 ;; -1]]]]; AppendTo[v, Count[u, _?(# <= i &)]], {i, nn}]; {Boole[First[u] <= 0]}~Join~v] (* or *)
{0}~Join~Accumulate@ ReplacePart[ConstantArray[0, Last[#]], Map[# -> 1 &, #]] &@ LinearRecurrence[{1, 2}, {2, 1}, 8] (* Michael De Vlieger, Jun 16 2021 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Ovidiu Bagdasar, Jun 16 2021
STATUS
approved