|
%I #12 Aug 15 2019 14:41:45
%S 1,2,6,12,60,60,420,840,2520,2520,27720,27720,859320,35232120,
%T 598946040,36535708440,2594035299240,23346317693160,303502130011080,
%U 303502130011080,303502130011080,303502130011080,1214008520044320,1214008520044320,1214008520044320
%N Least common multiple of the digit reversals of the first n natural numbers.
%C a(1) to a(12) are the same as in A003418.
%p rev:=proc(n) local nn, nnn: nn:=convert(n,base,10): add(nn[nops(nn)+1-j]*10^(j-1),j=1..nops(nn)) end: a:=n->lcm(seq(rev(j),j=1..n)): seq(a(n),n=1..27); # _Emeric Deutsch_, Aug 03 2005
%o (PARI) r(n) = fromdigits(Vecrev(digits(n))); \\ A004086
%o a(n) = lcm(Vec(apply(x->r(x), vector(n, i, i))); \\ _Michel Marcus_, Aug 15 2019
%Y Cf. A003418, A004086.
%K base,nonn
%O 1,2
%A _Amarnath Murthy_, Jul 19 2005
%E Corrected and extended by _Emeric Deutsch_ and _Erich Friedman_, Aug 03 2005
|
