login
A161854
Primes which are anagrams of cubes.
1
251, 433, 521, 1279, 1297, 1439, 1493, 2179, 2447, 2719, 2791, 2917, 2971, 3491, 4139, 4391, 4931, 5689, 5869, 7129, 7219, 9127, 9341, 9413, 9431, 9721, 12671, 12689, 12799, 12979, 15767, 16127, 16217, 16829, 17299, 17657, 17929, 18269
OFFSET
1,1
LINKS
EXAMPLE
433 is a term because it is prime, and 343 (an anagram of 433) is a cube = 7^3.
MATHEMATICA
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 *)
CROSSREFS
Cf. A000578.
Sequence in context: A271581 A142419 A364968 * A234928 A142569 A142742
KEYWORD
nonn,base
AUTHOR
Claudio Meller, Jun 20 2009
STATUS
approved