OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..850
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
KEYWORD
nonn,base
AUTHOR
Claudio Meller, Jun 20 2009
STATUS
approved