login
A161851
Squares which are anagrams of prime numbers.
4
16, 121, 169, 196, 289, 361, 784, 961, 1024, 1156, 1225, 1369, 1444, 1681, 1849, 1936, 2116, 2209, 2401, 2704, 2809, 3025, 3136, 3364, 3481, 3721, 3844, 5041, 5329, 5476, 5776, 6241, 6724, 6889, 7225, 7396, 7921, 8281, 8836, 9025, 9409, 10201, 10609
OFFSET
1,1
COMMENTS
16 is in the sequence because it is a square and 61 (an anagram of 16) is a prime number.
1156 is in the sequence because it is a square and 6151 (an anagram of 1156) is a prime number.
MATHEMATICA
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 *)
CROSSREFS
Sequence in context: A301649 A014732 A135794 * A171584 A017030 A082921
KEYWORD
nonn,base
AUTHOR
Claudio Meller, Jun 20 2009
STATUS
approved