|
%I #15 Jun 09 2022 11:34:27
%S 1,2,5,9,13,17,24,31,38,45,56,67,78,89,100,111,122,140,158,176,194,
%T 212,230,248,266,284,302,320,349,378,407,436,465,494,523,552,581,610,
%U 639,668,697,726,755,784,813,842,889,936,983,1030,1077,1124,1171,1218
%N Partial sums of A352717.
%t Accumulate[Flatten[Map[ConstantArray[LucasL[#],LucasL[#-1]]&,Range[15]]]] (* _Peter J. C. Moses_, May 02 2022 *)
%o (Python)
%o from itertools import islice
%o def A351628_gen(): # generator of terms
%o a, b, c = 1, 3, 0
%o while True:
%o yield from (c+i*a for i in range(1,b-a+1))
%o a, b, c = b, a+b, c + a*(b-a)
%o A351628_list = list(islice(A351628_gen(),40)) # _Chai Wah Wu_, Jun 09 2022
%Y Cf. A087172, A130473, A353717.
%K nonn
%O 1,2
%A _Clark Kimberling_, May 04 2022
|
