OFFSET
1,3
MATHEMATICA
Total[IntegerDigits[#, 13]]&/@Select[Range[0, 1000], IntegerDigits[#, 13] == Reverse[ IntegerDigits[ #, 13]]&] (* Harvey P. Dale, May 08 2020 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved