OFFSET
0,3
MATHEMATICA
Select[Range[0, 50]^5, FreeQ[Differences[IntegerDigits[#]], 0]&] (* Harvey P. Dale, Dec 31 2020 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Sep 15 1999
STATUS
approved