A260814 Powers of 2 with distinct digits.

1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024, 2048, 4096, 8192, 16384, 32768, 1048576, 536870912

Offset: 1

Author

Zak Seidov, Aug 02 2015

Keywords

• nonn
• base
• fini
• full

Crossrefs

Cf. A000079, A029743, A084688.

Programs

Mathematica

Select[2^Range[0,34], Max@ DigitCount@ # == 1 &] (* Michael De Vlieger, Aug 03 2015 *)

PARI

lista() = {lim = ceil(log(10^11)/(log(2))); for (n=0, lim, d = digits(2^n); if (#vecsort(d,,8) == #d, print1(n, ", ")););} \\ Michel Marcus, Aug 03 2015

Formula

a(n) = 2^A084688(n).