%I #14 May 02 2026 20:52:09
%S 0,0,0,13,23,46,53,140,215,105,210,2808,2918,15593,21187,63556,7987,
%T 179118,358137,466945,420750,4034914,8068838,10946113,23445533,
%U 46880176,22406063,117663950,219078635,1060248229,2021396468,2632727628,2954399858,13837158803
%N a(n) = reverse(2^n) mod 2^n.
%C Remainder if (2^n written backwards) is divided by 2^n.
%H Robert Israel, <a href="/A103166/b103166.txt">Table of n, a(n) for n = 1..3305</a>
%F a(n) = A103168(2^n). - _Robert Israel_, Apr 30 2026
%e a(4) = reverse(2^4) mod 2^4 = reverse(16) mod 16 = 61 mod 16 = 13.
%p rev:= proc(n) local L,i;
%p L:= convert(n,base,10);
%p add(L[-i]*10^(i-1),i=1..nops(L))
%p end proc:
%p seq(rev(2^n) mod 2^n, n=1..100); # _Robert Israel_, Apr 30 2026
%t Table[Mod[FromDigits[Reverse[IntegerDigits[2^n]]], 2^n], {n, 1, 256}]
%o (Python)
%o def a(n): t = 2**n; return int(str(t)[::-1])%t
%o print([a(n) for n in range(1, 35)]) # _Michael S. Branicky_, Dec 12 2021
%Y Cf. A002113, A071590, A103167, A103168.
%K base,nonn
%O 1,4
%A _Labos Elemer_, Jan 28 2005