OFFSET
1,3
COMMENTS
No further terms up to 100000. - T. D. Noe, Sep 18 2012
EXAMPLE
2^126 = 85070591730234615865843651857942052864.
MAPLE
q:= n-> (s-> andmap(i-> s[i]<>s[i+1], [$1..length(s)-1]))(""||(2^n)):
select(q, [$0..200])[]; # Alois P. Heinz, Mar 07 2024
MATHEMATICA
Select[Range[0, 10000], !MemberQ[Differences[IntegerDigits[2^#]], 0]&] (* Harvey P. Dale, Dec 24 2011 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Sep 15 1999
STATUS
approved