%I #23 Apr 20 2024 11:00:40
%S 1,3,6,12,16,24,36,45,50,60,75,100,120,144,160,192,240,270,288,324,
%T 351,364,371,424,530,795,954,1272,1484,1498,1605,1926,2140,2568,3210,
%U 3745,3780,3801,3982,3993,4026,4048,4071,4130,4200,4228,4379,4408,4427,4660,5126
%N Partial sums of A109890.
%H Reinhard Zumkeller, <a href="/A109735/b109735.txt">Table of n, a(n) for n = 1..10000</a>
%e See A109890.
%t Accumulate[a[1]=1;a[2]=2;a[n_]:=Block[{t=Table[a[i], {i,n-1}]}, s=Plus @@ t; d=Divisors[s]; l=Complement[d,t]; If[l!={},k = First[l], k=s; While[Position[t,k]=={},k+=s];k]]; Table[a[n],{n,51}] ] (* _James C. McMahon_, Apr 03 2024 *)
%o (Haskell)
%o a109735 n = a109735_list !! (n-1)
%o a109735_list = scanl1 (+) a109890_list
%o -- _Reinhard Zumkeller_, Jan 02 2015
%Y Cf. A109890.
%K nonn
%O 1,2
%A _N. J. A. Sloane_ and _Nadia Heninger_, Aug 10 2005