|
%I #15 Sep 08 2022 08:44:39
%S 0,1,4,9,16,25,36,49,64,81,121,484,1089,1936,3025,4356,5929,7744,9801,
%T 10201,12321,14641,17161,19881,22801,25921,29241,32761,36481,40804,
%U 44944,49284,53824,58564,63504,68644,73984,79524,85264,91809,97969,104329
%N Squares of palindromes.
%H Vincenzo Librandi, <a href="/A014186/b014186.txt">Table of n, a(n) for n = 0..1099</a>
%F a(n) = A002113(n)^2. - _Michel Marcus_, Jan 04 2018
%t f[n_,b_]:=Module[{i=IntegerDigits[n,b]}, i==Reverse[i]];lst={}; Do[If[f[n,10],AppendTo[lst, n]], {n, 0, 400}]; lst^2 (* _Vincenzo Librandi_ Jan 04 2018 *)
%t Select[Range[0,400],PalindromeQ]^2 (* _Harvey P. Dale_, Aug 28 2021 *)
%o (Magma) [n^2: n in [0..600] | Intseq(n) eq Reverse(Intseq(n))]; // _Vincenzo Librandi_, Jan 04 2018
%Y Cf. A002113, A014187, A014188.
%K nonn,base
%O 0,3
%A _N. J. A. Sloane_.
|
