OFFSET
1,3
MATHEMATICA
Table[With[{id14=IntegerDigits[n, 14]}, If[id14==Reverse[id14], Total[id14], Nothing]], {n, 0, 1000}] (* Harvey P. Dale, Oct 10 2024 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved