%I
%S 10278,12543,12586,13268,13278,13698,14098,15963,16549,16854,17529,
%T 18072,19023,20316,20513,20754,21397,21439,23019,23178,24807,25941,
%U 26351,26409,27105,27984,28346,28731,29034,29106
%N Numbers n such that n contains exactly 5 digits, all distinct, and n^2 contains exactly 9 distinct digits.
%C There are 30 terms (a(30)=29106); the only prime is a(17)=21397.
%t Select[Range[10000, Sqrt[10^9]], Length[Union[IntegerDigits[#]]] == 5 && Length[Union[IntegerDigits[#^2]]] == 9 &] (* _T. D. Noe_, Jan 18 2012 *)
%Y Subsequence of A054037.
%K base,nonn,fini,full
%O 1,1
%A _Zak Seidov_, Jan 18 2012
