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,2

Links

Table of n, a(n) for n=1..54.

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

Crossrefs

Cf. A087172, A130473, A353717.

Sequence in context: A263086 A353036 A182814 * A371730 A055025 A178805

Adjacent sequences: A351625 A351626 A351627 * A351629 A351630 A351631

Keyword

nonn

Author

Clark Kimberling, May 04 2022

Status

approved