A253578 Primes p such that digits of p do not appear in p^10.
3, 877
Offset: 1
Examples
3 and 3^10 = 59049 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[#^10]]=={} &]
-
Python
from sympy import isprime A253578_list = [n for n in range(1,10**6) if set(str(n)) & set(str(n**10)) == set() and isprime(n)] # Chai Wah Wu, Jan 15 2015
Comments