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,2

Links

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

Example

See A109890.

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

Prog

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

Crossrefs

Cf. A109890.

Sequence in context: A281063 A032602 A116593 * A086538 A127563 A108757

Adjacent sequences: A109732 A109733 A109734 * A109736 A109737 A109738

Keyword

nonn,changed

Author

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

Status

approved