OFFSET
1,3
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..61
P. De Geest, Palindromic Squares
MATHEMATICA
pb13Q[n_]:=Module[{idn13=IntegerDigits[n, 13]}, idn13==Reverse[idn13]]; Select[Range[0, 20000]^2, pb13Q] (* Vincenzo Librandi, Jul 24 2014 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
STATUS
approved