%I #12 Oct 16 2019 01:19:13
%S 1,2,4,8,16,32,64,128,256,512,1024,2048,4096,8192,16384,32768,131072,
%T 1048576,2097152,4194304,268435456,536870912,1073741824,2147483648,
%U 4294967296,17179869184,34359738368,68719476736,137438953472
%N Numbers of form 2^k (for values of k see A050723) containing no pair of consecutive equal digits (probably finite).
%H <a href="/index/Di#divseq">Index to divisibility sequences</a>
%e 2^18 = 262144 is missing, for example.
%t Select[2^Range[0,40],FreeQ[Differences[IntegerDigits[#]],0] &] (* _Jayanta Basu_, May 31 2013 *)
%Y Cf. A043096, A050723.
%K nonn,base
%O 1,2
%A _Patrick De Geest_, Sep 15 1999