login
LCM of the digits of n.
1

%I #23 May 15 2024 12:11:53

%S 1,2,3,4,5,6,7,8,9,0,1,2,3,4,5,6,7,8,9,0,2,2,6,4,10,6,14,8,18,0,3,6,3,

%T 12,15,6,21,24,9,0,4,4,12,4,20,12,28,8,36,0,5,10,15,20,5,30,35,40,45,

%U 0,6,6,6,12,30,6,42,24,18,0,7,14,21,28,35,42,7,56,63

%N LCM of the digits of n.

%H Seiichi Manyama, <a href="/A062078/b062078.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..1000 from Harry J. Smith)

%F a(n) <= 2520. - _Sean A. Irvine_, Mar 18 2023

%e a(25) = 10, a(24) = 4.

%p a:= n-> ilcm(convert(n, base, 10)[]):

%p seq(a(n), n=1..99); # _Alois P. Heinz_, May 15 2024

%t Table[LCM@@IntegerDigits[n],{n,120}] (* _Harvey P. Dale_, Feb 19 2017 *)

%o (PARI) { for (n=1, 1000, x=n; a=1; while (x>9, a=lcm(a, x-10*(x\10)); x\=10); a=lcm(a, x); write("b062078.txt", n, " ", a) ) } \\ _Harry J. Smith_, Jul 31 2009

%Y Cf. A007954, A052423.

%K nonn,base

%O 1,2

%A _Amarnath Murthy_, Jun 15 2001