|
|
A109735
|
|
Partial sums of A109890.
|
|
10
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
EXAMPLE
|
|
|
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
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|