login
Distinct values arising in A051547, sequence of a(n) = lcm(phi(1), ..., phi(n)).
4

%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