login
Squares k^2 in which the digits of k appear.
1

%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_