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,2

Links

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

Mathematica

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

Prog

(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

Crossrefs

Cf. A003418, A051451, A051547.

Sequence in context: A128646 A155747 A058254 * A058255 A118456 A326861

Adjacent sequences: A076241 A076242 A076243 * A076245 A076246 A076247

Keyword

nonn

Author

Labos Elemer, Oct 08 2002

Status

approved