OFFSET
0,3
MATHEMATICA
Select[Range[0, 200], PalindromeQ]^3 (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Sep 02 2017 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved