|
%I #11 Jul 24 2014 03:28:44
%S 0,1,4,9,36,81,121,729,4225,5329,6241,6561,6889,38025,47961,56169,
%T 133956,263169,294849,342225,485809,1196836,2368521,3080025,3515625,
%U 8468100,16785409,17313921,17850625,20043529,21316689,21911761
%N n in base 8 is a palindromic square.
%H Vincenzo Librandi, <a href="/A029806/b029806.txt">Table of n, a(n) for n = 1..100</a>
%H P. De Geest, <a href="http://www.worldofnumbers.com/nobase10.htm">Palindromic numbers beyond base 10</a>
%t pb8Q[n_]:=Module[{idn8=IntegerDigits[n, 8]}, idn8==Reverse[idn8]]; Select[Range[0, 20000]^2, pb8Q] (* _Vincenzo Librandi_, Jul 24 2014 *)
%Y Cf. A002779, A029734, A029738, A029983, A029985, A029987, A029989, A029991, A029993, A029995, A029997, A029999, A030074, A030075.
%K nonn,base
%O 1,3
%A _Patrick De Geest_
|
