OFFSET
0,3
MATHEMATICA
Table[Module[{c=n}, While[IntegerDigits[c, 8]!=Reverse[IntegerDigits[c, 8]], c--]; c], {n, 0, 90}] (* Harvey P. Dale, Sep 20 2022 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Dec 09 2015
STATUS
approved