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

Links

Table of n, a(n) for n=1..62.

Formula

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

Example

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.

Mathematica

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

Prog

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

Crossrefs

Cf. A052429, A078547, A078548, A002796.

Sequence in context: A151766 A004852 A342046 * A262360 A004863 A055648

Adjacent sequences: A078543 A078544 A078545 * A078547 A078548 A078549

Keyword

nonn,base

Author

Labos Elemer, Dec 05 2002

Status

approved