A050732 Numbers of form 2^k (for values of k see A050723) containing no pair of consecutive equal digits (probably finite).

1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024, 2048, 4096, 8192, 16384, 32768, 131072, 1048576, 2097152, 4194304, 268435456, 536870912, 1073741824, 2147483648, 4294967296, 17179869184, 34359738368, 68719476736, 137438953472

Offset

1,2

Links

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

Index to divisibility sequences

Example

2^18 = 262144 is missing, for example.

Mathematica

Select[2^Range[0, 40], FreeQ[Differences[IntegerDigits[#]], 0] &] (* Jayanta Basu, May 31 2013 *)

Crossrefs

Cf. A043096, A050723.

Sequence in context: A274866 A274865 A364040 * A371863 A260814 A274864

Adjacent sequences: A050729 A050730 A050731 * A050733 A050734 A050735

Keyword

nonn,base

Author

Patrick De Geest, Sep 15 1999

Status

approved