%I #13 Nov 11 2020 11:58:46
%S 1,2,3,12,90,108,1512,1728,3456,34560,456192,497664,12939264,13934592,
%T 139345920,167215104,5685313536,6019743744,228750262272,240789749760,
%U 481579499520,10594748989440,265831883735040,277389791723520
%N a(1) = 1, a(n) = smallest multiple of n divisible by the sum of all previous terms.
%H Harvey P. Dale, <a href="/A074179/b074179.txt">Table of n, a(n) for n = 1..973</a>
%F a(n) = lcm(n, Sum_{k=1..n-1} a(k)), with a(1) = 1. - _Michel Marcus_, Nov 11 2020
%p a[1] := 1:a[2] := 2:s := 3:for n from 3 to 50 do a[n] := lcm(s,n):s := s+a[n]:od:seq(a[k],k=1..50);
%t nxt[{n_,a_,t_}]:={n+1,LCM[n+1,t],t+LCM[n+1,t]}; NestList[nxt,{1,1,1},30][[All,2]] (* _Harvey P. Dale_, Dec 06 2018 *)
%o (PARI) lista(nn) = my(va=vector(nn)); va[1]=1; for (n=2, nn, va[n] = lcm(n, vecsum(va))); va; \\ _Michel Marcus_, Nov 11 2020
%Y Cf. A057827.
%K nonn
%O 1,2
%A _Amarnath Murthy_, Aug 31 2002
%E Corrected and extended by _Sascha Kurz_, Feb 12 2003