%I #13 Aug 21 2022 16:56:19
%S 4,9,16,25,36,49,64,81,121,484,1089,1764,1936,2401,2704,3025,4356,
%T 5929,6084,7744,9801,10201,12321,14641,17161,19881,22801,25921,27225,
%U 29241,32761,36481,40804,44944,49284,53824,58564,63504,68644,69696
%N Squares that are the product of 2 palindromes greater than 1.
%C Are most terms of the form p^2 where p is a palindrome? - _David A. Corneth_, May 25 2021
%H David A. Corneth, <a href="/A115743/b115743.txt">Table of n, a(n) for n = 1..13971</a> (terms <= 10^15)
%e 6084 = 78^2 and 6084 = 9*676.
%t With[{nn=50000},Select[Union[Select[Times@@@Tuples[Select[Range[2,nn],PalindromeQ],2],IntegerQ[ Sqrt[ #]]&]],#<=2 nn&]] (* _Harvey P. Dale_, Aug 21 2022 *)
%Y Cf. A014186, A115683, A115744, A115745.
%K nonn,base
%O 1,1
%A _Giovanni Resta_, Jan 31 2006
|