OFFSET
1,1
COMMENTS
343 is in the sequence because it is a cube (7^3) and is an anagram of 433, a prime number.
LINKS
Michael S. Branicky, Table of n, a(n) for n = 1..10000 (terms 1..1001 from Chai Wah Wu)
MATHEMATICA
Select[Range[100]^3, AnyTrue[Permutations[IntegerDigits[#]], PrimeQ[FromDigits[#]] &] &] (* Paolo Xausa, Feb 20 2024 *)
PROG
(Python)
from sympy import isprime
from itertools import count, islice
from sympy.utilities.iterables import multiset_permutations as mp
def f(s): return any(p[0]!="0" for p in mp(s) if isprime(int("".join(p))))
def agen(): yield from (c for i in count(1) if f(str(c:=i**3)))
print(list(islice(agen(), 37))) # Michael S. Branicky, Feb 19 2024
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Claudio Meller, Jun 20 2009
STATUS
approved