%I #23 Feb 26 2021 02:02:24
%S 0,1,3,7,60,22,45,820,651,214,4200,8401,6903,2917,48360,86722,63555,
%T 270130,441261,882424,6758400,2517901,4034913,8068837,61277760,
%U 23445532,46880175,827712430,654534861,219078634,4281473700,8463847411,6927694923,2954399857
%N Subtract 1 from each term of A004094 (the powers of 2 written backwards).
%H Robert Israel, <a href="/A341718/b341718.txt">Table of n, a(n) for n = 0..3318</a>
%p a:= n-> (s-> parse(cat(s[-i]$i=1..length(s))))(""||(2^n))-1:
%p seq(a(n), n=0..50); # _Alois P. Heinz_, Feb 24 2021
%t Array[IntegerReverse[2^#] - 1 &, 32, 0] (* _Michael De Vlieger_, Feb 24 2021 *)
%o (Python)
%o A341718_list = [int(str(2**n)[::-1])-1 for n in range(20)] # _Chai Wah Wu_, Feb 24 2021
%o (PARI) a(n) = fromdigits(Vecrev(digits(2^n))) - 1; \\ _Michel Marcus_, Feb 25 2021
%Y Cf. A000225, A004094.
%K nonn,base
%O 0,3
%A _N. J. A. Sloane_, Feb 24 2021