A055961 - OEIS

%I #21 Feb 21 2023 17:19:19

%S 0,0,0,0,0,0,0,0,0,0,0,10,0,-10,-20,-30,-40,-50,-60,-70,-80,-90,20,10,

%T 0,-10,-20,-30,-40,-50,-60,-70,-80,30,20,10,0,-10,-20,-30,-40,-50,-60,

%U -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

%N a(n) = n - (reversal of base-11 digits of n) (written in base 10).

%C a(n) is a multiple of 10.

%H Robert Israel, <a href="/A055961/b055961.txt">Table of n, a(n) for n = 0..10000</a>

%F a(n) = n - A056960(n).

%p f:= proc(n) local L,t;

%p   L:= convert(n,base,11);

%p   n - add(L[-i]*11^(i-1),i=1..nops(L))

%p end proc:

%p map(f, [$0..100]); # _Robert Israel_, Apr 20 2021

%t Table[n-FromDigits[Reverse[IntegerDigits[n,11]],11],{n,0,80}] (* _Harvey P. Dale_, Feb 21 2023 *)

%o (PARI) a(n) = n - fromdigits(Vecrev(digits(n, 11)), 11); \\ _Michel Marcus_, Apr 22 2021

%Y Cf. A056960 (base-11 reversal), A056965 (n minus decimal reversal).

%K base,sign,look

%O 0,12

%A _Henry Bottomley_, Jul 18 2000