|
%I #15 Aug 11 2024 14:41:30
%S 0,1,4,9,169,676,21025,24649,28561,32041,32761,84100,85264,91204,
%T 373321,2989441,3045025,3179089,3553225,4165681,11957764,13060996,
%U 14409616,430023169,436016161,442050625,448126561,505215529
%N Palindromic squares in base 12.
%H Vincenzo Librandi, <a href="/A029738/b029738.txt">Table of n, a(n) for n = 1..58</a>
%H P. De Geest, <a href="https://www.worldofnumbers.com/nobase10.htm">Palindromic numbers beyond base 10</a>
%t pb12Q[n_]:=Module[{idn12=IntegerDigits[n, 12]}, idn12==Reverse[idn12]]; Select[Range[0, 20000]^2, pb12Q] (* _Vincenzo Librandi_, Jul 24 2014 *)
%Y Cf. A002779, A029734, A029806, A029983, A029985, A029987, A029989, A029991, A029993, A029995, A029997, A029999, A030074, A030075.
%K base,nonn
%O 1,3
%A _Patrick De Geest_
|
