OFFSET
0,3
MATHEMATICA
palQ[n_]:=Module[{idn=IntegerDigits[n]}, idn==Reverse[idn]]; Select[ Range[ 0, 200], palQ]^4 (* Harvey P. Dale, Feb 09 2015 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved