|
OFFSET
|
1,1
|
|
COMMENTS
|
a(3) > 10^7.
Numbers n < 10^7 such that digits of n are not present in n^10: 3, 9, 18, 877, 5757.
|
|
LINKS
|
|
|
EXAMPLE
|
3 and 3^10 = 59049 have no digits in common, hence 3 is in the sequence.
|
|
MATHEMATICA
|
Select[Prime[Range[1000000]], Intersection[IntegerDigits[#], IntegerDigits[#^10]]=={} &]
|
|
PROG
|
(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
|
|
CROSSREFS
|
Cf. similar sequences listed in A253574.
|
|
KEYWORD
|
nonn,base,bref,more
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|