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
Examples
2^18 = 262144 is missing, for example.
Programs
-
Mathematica
Select[2^Range[0,40],FreeQ[Differences[IntegerDigits[#]],0] &] (* Jayanta Basu, May 31 2013 *)