%I #9 May 12 2024 10:09:01
%S 251,433,521,1279,1297,1439,1493,2179,2447,2719,2791,2917,2971,3491,
%T 4139,4391,4931,5689,5869,7129,7219,9127,9341,9413,9431,9721,12671,
%U 12689,12799,12979,15767,16127,16217,16829,17299,17657,17929,18269
%N Primes which are anagrams of cubes.
%H Harvey P. Dale, <a href="/A161854/b161854.txt">Table of n, a(n) for n = 1..850</a>
%e 433 is a term because it is prime, and 343 (an anagram of 433) is a cube = 7^3.
%t pacQ[n_]:=Module[{fd=FromDigits/@Permutations[IntegerDigits[n]],s3},s3= Select[ fd, IntegerLength[ #] == IntegerLength[ n]&&IntegerQ[Surd[ #,3]]&]; Length[s3]>0]; Select[Prime[Range[2100]],pacQ] (* _Harvey P. Dale_, Apr 04 2019 *)
%Y Cf. A000578.
%K nonn,base
%O 1,1
%A _Claudio Meller_, Jun 20 2009
|