OFFSET
1,1
MATHEMATICA
palQ[n_]:=Module[{idn=IntegerDigits[n]}, idn==Reverse[idn]]; Select[ 8Range[3500], palQ] (* Harvey P. Dale, Jun 06 2011 *)
Select[8*Range[3500], PalindromeQ] (* Harvey P. Dale, Feb 17 2023 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved