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
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Sep 15 1999
STATUS
approved