login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A078546 LCM of n and its nonzero decimal digits. 2

%I

%S 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,

%T 78,378,56,522,30,93,96,33,204,105,36,777,456,117,40,164,84,516,44,

%U 180,276,1316,48,1764,50,255,260,795,540,55,840,1995,1160,2655,60,366,186

%N LCM of n and its nonzero decimal digits.

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

%e 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.

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

%o (PARI) lcnzd(n) = lcm(select(x->(x!=0), digits(n)));

%o a(n) = lcm(n, lcnzd(n)); \\ _Michel Marcus_, Mar 18 2018

%Y Cf. A052429, A078547, A078548, A002796.

%K nonn,base

%O 1,2

%A _Labos Elemer_, Dec 05 2002

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 22 05:36 EDT 2021. Contains 348160 sequences. (Running on oeis4.)