%I #14 Aug 29 2023 04:23:43
%S 0,1,25,36,100,121,625,729,2500,3025,3600,3969,4096,4356,5476,5776,
%T 9025,9216,9801,10000,10201,11025,12100,12321,12544,13225,13456,15625,
%U 19321,20164,39601,42025,44521,49284,50625,53824,62500,65025
%N Squares k^2 in which the digits of k appear.
%H Harvey P. Dale, <a href="/A029773/b029773.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) = A029772(n)^2. - _Michel Marcus_, Aug 29 2023
%t Select[Range[0,300]^2,SubsetQ[IntegerDigits[#],IntegerDigits[Sqrt[#]]]&] (* _Harvey P. Dale_, Jan 18 2015 *)
%Y Cf. A029772.
%K nonn,base
%O 1,3
%A _Patrick De Geest_