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

1, 2, 4, 12, 60, 120, 240, 720, 7920, 55440, 1275120, 2550240, 33153120, 961440480, 2884321440, 118257179040, 236514358080, 1182571790400, 20103720436800, 1065497183150400, 39423395776564800, 118270187329694400

Offset: 1

Author

Labos Elemer, Oct 08 2002

Keywords

• nonn

Links

• Michael De Vlieger, Table of n, a(n) for n = 1..365

Crossrefs

Cf. A003418, A051451, A051547.

Programs

Mathematica

Union@ FoldList[LCM @@ {#1, EulerPhi@ #2} &, Range@ 165] (* Michael De Vlieger, Dec 09 2018 *)

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