login
A351628
Partial sums of A352717.
0
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
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
KEYWORD
nonn
AUTHOR
Clark Kimberling, May 04 2022
STATUS
approved