|
%I #11 Jul 24 2014 05:23:58
%S 0,1,4,9,196,784,28900,33489,38416,43681,94864,115600,124609,133956,
%T 4831204,5664400,6563844,8398404,16208676,17994564,19324816,20958084,
%U 50098084,58706244,815787844,825470361,835210000,845006761,946915984
%N Squares which are palindromes in base 13.
%H Vincenzo Librandi, <a href="/A029999/b029999.txt">Table of n, a(n) for n = 1..61</a>
%H P. De Geest, <a href="http://www.worldofnumbers.com/square.htm">Palindromic Squares</a>
%t pb13Q[n_]:=Module[{idn13=IntegerDigits[n, 13]}, idn13==Reverse[idn13]]; Select[Range[0, 20000]^2, pb13Q] (* _Vincenzo Librandi_, Jul 24 2014 *)
%Y Cf. A002779, A029734, A029738, A029806, A029983, A029985, A029987, A029989, A029991, A029993, A029995, A029997, A030074, A030075.
%K nonn,base
%O 1,3
%A _Patrick De Geest_
|
