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

Links

Table of n, a(n) for n=1..18.

Formula

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

Mathematica

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

Prog

(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

Crossrefs

Cf. A000079, A029743, A084688.

Sequence in context: A364040 A050732 A371863 * A274864 A274863 A138815

Adjacent sequences: A260811 A260812 A260813 * A260815 A260816 A260817

Keyword

nonn,base,fini,full

Author

Zak Seidov, Aug 02 2015

Status

approved