login
A050732
Numbers of form 2^k (for values of k see A050723) containing no pair of consecutive equal digits (probably finite).
0
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
EXAMPLE
2^18 = 262144 is missing, for example.
MATHEMATICA
Select[2^Range[0, 40], FreeQ[Differences[IntegerDigits[#]], 0] &] (* Jayanta Basu, May 31 2013 *)
CROSSREFS
Sequence in context: A274866 A274865 A364040 * A371863 A260814 A274864
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Sep 15 1999
STATUS
approved