A161854 Primes which are anagrams of cubes

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

Comments

433 is in the list because is prime, and 343 (an anagram of 433) is a cube = 7^3

Links

Harvey P. Dale, Table of n, a(n) for n = 1..850

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

Sequence in context: A271581 A142419 A364968 * A234928 A142569 A142742

Adjacent sequences: A161851 A161852 A161853 * A161855 A161856 A161857

Keyword

nonn,base

Author

Claudio Meller, Jun 20 2009

Status

approved