A055961 a(n) = n - (reversal of base-11 digits of n) (written in base 10).
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 10, 0, -10, -20, -30, -40, -50, -60, -70, -80, -90, 20, 10, 0, -10, -20, -30, -40, -50, -60, -70, -80, 30, 20, 10, 0, -10, -20, -30, -40, -50, -60, -70, 40, 30, 20, 10, 0, -10, -20, -30, -40, -50, -60, 50, 40, 30, 20, 10, 0, -10, -20, -30, -40, -50, 60, 50, 40, 30, 20, 10, 0, -10, -20, -30, -40
Offset: 0
Links
- Robert Israel, Table of n, a(n) for n = 0..10000
Programs
-
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 *)
-
PARI
a(n) = n - fromdigits(Vecrev(digits(n, 11)), 11); \\ Michel Marcus, Apr 22 2021
Formula
a(n) = n - A056960(n).
Comments