%I #9 Dec 02 2018 19:43:40
%S 16,121,361,1024,1369,1444,1600,1936,2116,2401,3481,3721,3844,5041,
%T 6241,7921,8281,8836,10201,11236,12100,12544,13924,15625,16129,17956,
%U 18496,20164,21316,21904,22201,22801,33124,33856,34969,36100,38809,39601
%N Sort the digits of these squares into descending order and drop zeros to get primes.
%H Harvey P. Dale, <a href="/A082921/b082921.txt">Table of n, a(n) for n = 1..1000</a>
%e a(4)=1024 because 32^2 = 1024 and 421 is prime.
%t Select[Range[200]^2,PrimeQ[FromDigits[Reverse[Sort[DeleteCases[ IntegerDigits[ #],0]]]]]&] (* _Harvey P. Dale_, Dec 02 2018 *)
%K base,nonn
%O 1,1
%A _Jason Earls_, May 25 2003
