OFFSET
0,3
EXAMPLE
9^33 = 30903154382632612361920641803529.
MAPLE
q:= n-> (s-> andmap(i-> s[i]<>s[i+1], [$1..length(s)-1]))(""||(9^n)):
select(q, [$0..200])[]; # Alois P. Heinz, Mar 07 2024
MATHEMATICA
Select[Range[0, 350], FreeQ[Differences[IntegerDigits[9^#]], 0]&] (* Harvey P. Dale, Sep 16 2024 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Sep 15 1999
STATUS
approved