%I #12 Sep 08 2018 21:56:28
%S 1,4,36,144,3600,21600,1058400,8467200,76204800,762048000,92207808000,
%T 1106493696000,186997434624000,2617964084736000,39269461271040000,
%U 628311380336640000,181581988917288960000,3268475800511201280000,1179919763984543662080000
%N a(1)=1; a(n) = n*lcm(n, a(n-1)) for n > 1.
%H Nathaniel Johnston, <a href="/A192217/b192217.txt">Table of n, a(n) for n = 1..200</a>
%F a(n) = A000142(n)*A034386(n). - _Arkadiusz Wesolowski_, Mar 28 2012
%p a := proc(n) option remember: if(n=1)then return 1:fi: return n*lcm(n,a(n-1)): end: seq(a(n),n=1..19); # _Nathaniel Johnston_, Jun 26 2011
%t a[1]=1;a[n_]:=a[n]=n LCM[n,a[n-1]];
%t Table[a[n],{n,1,20}]
%K nonn,easy
%O 1,2
%A _José María Grau Ribas_, Jun 25 2011