OFFSET
1,2
COMMENTS
a(1) to a(12) are the same as in A003418.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MAPLE
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
MATHEMATICA
Table[LCM@@IntegerReverse/@Range[n], {n, 30}] (* Harvey P. Dale, Sep 25 2024 *)
PROG
(PARI) r(n) = fromdigits(Vecrev(digits(n))); \\ A004086
a(n) = lcm(vector(n, i, r(i))); \\ Michel Marcus, Aug 15 2019
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Jul 19 2005
EXTENSIONS
Corrected and extended by Emeric Deutsch and Erich Friedman, Aug 03 2005
STATUS
approved