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,3

Links

Robert Israel, Table of n, a(n) for n = 0..3318

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 *)

Prog

(Python)
A341718_list = [int(str(2**n)[::-1])-1 for n in range(20)] # Chai Wah Wu, Feb 24 2021
(PARI) a(n) = fromdigits(Vecrev(digits(2^n))) - 1; \\ Michel Marcus, Feb 25 2021

Crossrefs

Cf. A000225, A004094.

Sequence in context: A213734 A185846 A239023 * A164895 A046859 A242380

Adjacent sequences: A341715 A341716 A341717 * A341719 A341720 A341721

Keyword

nonn,base

Author

N. J. A. Sloane, Feb 24 2021

Status

approved