This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A109735 #23 Apr 20 2024 11:00:40 %S A109735 1,3,6,12,16,24,36,45,50,60,75,100,120,144,160,192,240,270,288,324, %T A109735 351,364,371,424,530,795,954,1272,1484,1498,1605,1926,2140,2568,3210, %U A109735 3745,3780,3801,3982,3993,4026,4048,4071,4130,4200,4228,4379,4408,4427,4660,5126 %N A109735 Partial sums of A109890. %H A109735 Reinhard Zumkeller, <a href="/A109735/b109735.txt">Table of n, a(n) for n = 1..10000</a> %e A109735 See A109890. %t A109735 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 A109735 (Haskell) %o A109735 a109735 n = a109735_list !! (n-1) %o A109735 a109735_list = scanl1 (+) a109890_list %o A109735 -- _Reinhard Zumkeller_, Jan 02 2015 %Y A109735 Cf. A109890. %K A109735 nonn %O A109735 1,2 %A A109735 _N. J. A. Sloane_ and _Nadia Heninger_, Aug 10 2005