%I #10 Dec 29 2016 02:31:10
%S 16,121,169,196,289,361,784,961,1024,1156,1225,1369,1444,1681,1849,
%T 1936,2116,2209,2401,2704,2809,3025,3136,3364,3481,3721,3844,5041,
%U 5329,5476,5776,6241,6724,6889,7225,7396,7921,8281,8836,9025,9409,10201,10609
%N Squares which are anagrams of prime numbers.
%C 16 is in the sequence because it is a square and 61 (an anagram of 16) is a prime number.
%C 1156 is in the sequence because it is a square and 6151 (an anagram of 1156) is a prime number.
%H Chai Wah Wu, <a href="/A161851/b161851.txt">Table of n, a(n) for n = 1..10000</a>
%t aprQ[n_]:=Length[Select[Select[FromDigits/@Permutations[IntegerDigits[n]], IntegerLength[#] == IntegerLength[n]&],PrimeQ]]>0; Select[Range[110]^2, aprQ] (* _Harvey P. Dale_, Aug 20 2011 *)
%K nonn,base
%O 1,1
%A _Claudio Meller_, Jun 20 2009
|