A109735 Partial sums of A109890.

1, 3, 6, 12, 16, 24, 36, 45, 50, 60, 75, 100, 120, 144, 160, 192, 240, 270, 288, 324, 351, 364, 371, 424, 530, 795, 954, 1272, 1484, 1498, 1605, 1926, 2140, 2568, 3210, 3745, 3780, 3801, 3982, 3993, 4026, 4048, 4071, 4130, 4200, 4228, 4379, 4408, 4427, 4660, 5126

Offset: 1

Author

N. J. A. Sloane and Nadia Heninger, Aug 10 2005

Keywords

• nonn

Examples

			See A109890.
		

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A109890.

Programs

Haskell

a109735 n = a109735_list !! (n-1)
a109735_list = scanl1 (+) a109890_list
-- Reinhard Zumkeller, Jan 02 2015

Mathematica

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 *)