OFFSET
0,3
LINKS
Robert Israel, Table of n, a(n) for n = 0..10000
MAPLE
f:= proc(n) local L, i;
L:= convert(n, base, 11);
add(L[-i]*11^(i-1), i=1..nops(L))
end proc:
map(f, [$0..100]); # Robert Israel, Dec 20 2018
MATHEMATICA
IntegerReverse[Range[0, 100], 11] (* Paolo Xausa, Aug 08 2024 *)
PROG
(PARI) a(n) = fromdigits(Vecrev(digits(n, 11)), 11); \\ Michel Marcus, Dec 20 2018
CROSSREFS
KEYWORD
AUTHOR
Henry Bottomley, Jul 18 2000
STATUS
approved