|
%I #11 Dec 10 2018 05:38:44
%S 1,2,4,12,60,120,240,720,7920,55440,1275120,2550240,33153120,
%T 961440480,2884321440,118257179040,236514358080,1182571790400,
%U 20103720436800,1065497183150400,39423395776564800,118270187329694400
%N Distinct values arising in A051547, sequence of a(n) = lcm(phi(1), ..., phi(n)).
%H Michael De Vlieger, <a href="/A076244/b076244.txt">Table of n, a(n) for n = 1..365</a>
%t Union@ FoldList[LCM @@ {#1, EulerPhi@ #2} &, Range@ 165] (* _Michael De Vlieger_, Dec 09 2018 *)
%o (PARI) lista(nn) = {last = -1; for (n=1, nn, new = lcm(vector(n, k, eulerphi(k))); if (new != last, print1(new, ", "); last = new););} \\ _Michel Marcus_, Mar 18 2018
%Y Cf. A003418, A051451, A051547.
%K nonn
%O 1,2
%A _Labos Elemer_, Oct 08 2002
|
