A029999 Squares which are palindromes in base 13.
0, 1, 4, 9, 196, 784, 28900, 33489, 38416, 43681, 94864, 115600, 124609, 133956, 4831204, 5664400, 6563844, 8398404, 16208676, 17994564, 19324816, 20958084, 50098084, 58706244, 815787844, 825470361, 835210000, 845006761, 946915984
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..61
- Patrick De Geest, Palindromic Squares in bases 2 to 17
Crossrefs
Programs
-
Mathematica
pb13Q[n_]:=Module[{idn13=IntegerDigits[n, 13]}, idn13==Reverse[idn13]]; Select[Range[0, 20000]^2, pb13Q] (* Vincenzo Librandi, Jul 24 2014 *)