OFFSET
0,3
LINKS
Rémy Sigrist, Table of n, a(n) for n = 0..8192
FORMULA
a(n) >= n with equality iff n belongs to A057890.
a(n) < A062383(n)*n. - Robert Israel, Oct 17 2019
EXAMPLE
For n = 35:
- the binary reversal of 35 ("100011" in binary) is 49 ("110001" in binary),
- hence a(35) = lcm(35, 49) = lcm(5*7, 7^2) = 5*7^2 = 245.
MAPLE
f:= proc(n) local L, j;
L:= convert(n, base, 2);
ilcm(n, add(2^(j-1)*L[-j], j=1..nops(L)))
end proc:
map(f, [$0..100]);
PROG
(PARI) a(n, base=2) = lcm(n, fromdigits(Vecrev(digits(n, base)), base))
CROSSREFS
KEYWORD
AUTHOR
Rémy Sigrist, Oct 17 2019
STATUS
approved