OFFSET
1,3
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..10000
P. Moree, H. Roskam, On an arithmetical function related to Euler's totient and the discriminator, Fib. Quart. 33 (1995) 332-340.
MATHEMATICA
FoldList[LCM @@ {#1, EulerPhi@ #2} &, Range@ 44] (* Michael De Vlieger, Dec 09 2018 *)
PROG
(PARI) a(n) = lcm(vector(n, k, eulerphi(k))); \\ Michel Marcus, Jul 30 2017
(PARI) apply( A051547(n)=lcm(apply(eulerphi, [2..n])), [1..50]) \\ Defines the function A051547; apply(...) for check & example. - M. F. Hasler, Dec 09 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved