OFFSET
1,2
LINKS
Paolo Xausa, Table of n, a(n) for n = 1..2000
MATHEMATICA
palQ[n_]:=Module[{idn=IntegerDigits[n]}, idn==Reverse[idn]]; Select[ 8Range[0, 3500], palQ] (* Harvey P. Dale, Jun 06 2011 *)
Select[8*Range[0, 3500], PalindromeQ] (* Harvey P. Dale, Feb 17 2023 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
Edited to include a(1) = 0 by Paolo Xausa, Jul 07 2025
STATUS
approved
