OFFSET
1,2
MATHEMATICA
Accumulate[Flatten[Map[ConstantArray[LucasL[#], LucasL[#-1]]&, Range[15]]]] (* Peter J. C. Moses, May 02 2022 *)
PROG
(Python)
from itertools import islice
def A351628_gen(): # generator of terms
a, b, c = 1, 3, 0
while True:
yield from (c+i*a for i in range(1, b-a+1))
a, b, c = b, a+b, c + a*(b-a)
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, May 04 2022
STATUS
approved