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
KEYWORD
nonn
AUTHOR
N. J. A. Sloane and Nadia Heninger, Aug 10 2005
STATUS
approved