OFFSET
0,12
COMMENTS
a(n) is a multiple of 10.
LINKS
Robert Israel, Table of n, a(n) for n = 0..10000
FORMULA
a(n) = n - A056960(n).
MAPLE
f:= proc(n) local L, t;
L:= convert(n, base, 11);
n - add(L[-i]*11^(i-1), i=1..nops(L))
end proc:
map(f, [$0..100]); # Robert Israel, Apr 20 2021
MATHEMATICA
Table[n-FromDigits[Reverse[IntegerDigits[n, 11]], 11], {n, 0, 80}] (* Harvey P. Dale, Feb 21 2023 *)
PROG
(PARI) a(n) = n - fromdigits(Vecrev(digits(n, 11)), 11); \\ Michel Marcus, Apr 22 2021
CROSSREFS
KEYWORD
AUTHOR
Henry Bottomley, Jul 18 2000
STATUS
approved