A062078 LCM of the digits of n.
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, 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, 0, 6, 6, 6, 12, 30, 6, 42, 24, 18, 0, 7, 14, 21, 28, 35, 42, 7, 56, 63
Offset: 1
Examples
a(25) = 10, a(24) = 4.
Links
- Seiichi Manyama, Table of n, a(n) for n = 1..10000 (terms 1..1000 from Harry J. Smith)
Programs
-
Maple
a:= n-> ilcm(convert(n, base, 10)[]): seq(a(n), n=1..99); # Alois P. Heinz, May 15 2024
-
Mathematica
Table[LCM@@IntegerDigits[n],{n,120}] (* Harvey P. Dale, Feb 19 2017 *)
-
PARI
a(n)={ lcm(digits(n)) } \\ Harry J. Smith, Jul 31 2009
Formula
a(n) <= 2520. - Sean A. Irvine, Mar 18 2023