OFFSET
1,3
MATHEMATICA
Flatten[IntegerDigits/@Select[Range[0, 400], PalindromeQ]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Oct 13 2017 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Giovanni Teofilatto, Jan 07 2006
STATUS
approved