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

Links

Harry J. Smith, Table of n, a(n) for n=1,...,1000

Formula

a(n) <= 2520. - Sean A. Irvine, Mar 18 2023

Example

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

Mathematica

Table[LCM@@IntegerDigits[n], {n, 120}] (* Harvey P. Dale, Feb 19 2017 *)

Prog

(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

Crossrefs

Cf. A007954, A052423.

Sequence in context: A175423 A175421 A175420 * A371281 A031347 A087471

Adjacent sequences: A062075 A062076 A062077 * A062079 A062080 A062081

Keyword

nonn,base

Author

Amarnath Murthy, Jun 15 2001

Status

approved