A078546 LCM of n and its nonzero decimal digits.

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 39, 28, 15, 48, 119, 72, 171, 20, 42, 22, 138, 24, 50, 78, 378, 56, 522, 30, 93, 96, 33, 204, 105, 36, 777, 456, 117, 40, 164, 84, 516, 44, 180, 276, 1316, 48, 1764, 50, 255, 260, 795, 540, 55, 840, 1995, 1160, 2655, 60, 366, 186

Offset: 1

Author

Labos Elemer, Dec 05 2002

Keywords

• nonn
• base

Examples

			n=13: lcm(13,1,3) = 39 = a(13); a(x)=x if x is divisible by each nonzero digits, i.e., if x in A002796.
		

Crossrefs

Cf. A052429, A078547, A078548, A002796.

Programs

Mathematica

lc[x_] := Apply[LCM, DeleteCases[IntegerDigits[x], 0]] Table[LCM[lc[w], w], {w, 1, 128}] NOT

PARI

lcnzd(n) = lcm(select(x->(x!=0), digits(n)));
a(n) = lcm(n, lcnzd(n)); \\ Michel Marcus, Mar 18 2018

Formula

a(n) = lcm(n, A052429(n)).