A253577 Primes p such that digits of p do not appear in p^8.
3, 43, 59, 73, 233, 353
Offset: 1
Examples
3 and 3^8 = 6561 have no digits in common, hence 3 is in the sequence.
Crossrefs
Cf. similar sequences listed in A253574.
Programs
-
Mathematica
Select[Prime[Range[1000000]], Intersection[IntegerDigits[#], IntegerDigits[#^8]]=={} &]
-
Python
from sympy import isprime A253577_list = [n for n in range(1,10**6) if set(str(n)) & set(str(n**8)) == set() and isprime(n)] # Chai Wah Wu, Jan 05 2015
Comments