|
%I #11 Jul 24 2014 05:23:34
%S 0,1,4,9,225,576,900,2209,27225,38809,44521,50625,57121,155236,166464,
%T 178084,4796100,5978025,7535025,8732025,10017225,30140100,32490000,
%U 73359225,1475865889,1490963769,1506138481,1521390025
%N Squares which are palindromes in base 14.
%H Vincenzo Librandi, <a href="/A030074/b030074.txt">Table of n, a(n) for n = 1..57</a>
%H P. De Geest, <a href="http://www.worldofnumbers.com/square.htm">Palindromic Squares</a>
%t pb14Q[n_]:=Module[{idn14=IntegerDigits[n, 14]}, idn14==Reverse[idn14]]; Select[Range[0, 20000]^2, pb14Q] (* _Vincenzo Librandi_, Jul 24 2014 *)
%Y Cf. A002779, A029734, A029738, A029806, A029983, A029985, A029987, A029989, A029991, A029993, A029995, A029997, A029999, A030075.
%K base,nonn
%O 1,3
%A _Patrick De Geest_
|
