OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
a(46)=12 because least common multiple of 4 and 6 is 12.
MAPLE
f:= proc(n)
ilcm(op(subs(0=NULL, convert(n, base, 10))))
end proc:
map(f, [$1..100]); # Robert Israel, Mar 11 2018
MATHEMATICA
lcmnzd[n_]:=Module[{d=Select[IntegerDigits[n], #>0&]}, LCM@@d]; lcmnzd/@ Range[90] (* Harvey P. Dale, Jul 13 2016 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Henry Bottomley, Mar 17 2000
STATUS
approved