A351628 Partial sums of A352717.

1, 2, 5, 9, 13, 17, 24, 31, 38, 45, 56, 67, 78, 89, 100, 111, 122, 140, 158, 176, 194, 212, 230, 248, 266, 284, 302, 320, 349, 378, 407, 436, 465, 494, 523, 552, 581, 610, 639, 668, 697, 726, 755, 784, 813, 842, 889, 936, 983, 1030, 1077, 1124, 1171, 1218

Offset: 1

Author

Clark Kimberling, May 04 2022

Keywords

• nonn

Crossrefs

Cf. A087172, A130473, A353717.

Programs

Mathematica

Accumulate[Flatten[Map[ConstantArray[LucasL[#],LucasL[#-1]]&,Range[15]]]] (* Peter J. C. Moses, May 02 2022 *)

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)
A351628_list = list(islice(A351628_gen(),40)) # Chai Wah Wu, Jun 09 2022