A341718 Subtract 1 from each term of A004094 (the powers of 2 written backwards).
0, 1, 3, 7, 60, 22, 45, 820, 651, 214, 4200, 8401, 6903, 2917, 48360, 86722, 63555, 270130, 441261, 882424, 6758400, 2517901, 4034913, 8068837, 61277760, 23445532, 46880175, 827712430, 654534861, 219078634, 4281473700, 8463847411, 6927694923, 2954399857
Offset: 0
Links
- Robert Israel, Table of n, a(n) for n = 0..3318
Programs
-
Maple
a:= n-> (s-> parse(cat(s[-i]$i=1..length(s))))(""||(2^n))-1: seq(a(n), n=0..50); # Alois P. Heinz, Feb 24 2021 -
Mathematica
Array[IntegerReverse[2^#] - 1 &, 32, 0] (* Michael De Vlieger, Feb 24 2021 *)
-
PARI
a(n) = fromdigits(Vecrev(digits(2^n))) - 1; \\ Michel Marcus, Feb 25 2021
-
Python
A341718_list = [int(str(2**n)[::-1])-1 for n in range(20)] # Chai Wah Wu, Feb 24 2021