%I #6 Apr 25 2018 15:28:06
%S 2,3,7,47,53,157,577
%N Primes such that digits of p do not appear in p^2 or p^3 (probably finite).
%C No additional terms in the first 1 million primes. - _Harvey P. Dale_, Apr 25 2018
%t Select[Prime[Range[1000000]],Intersection[Union[Flatten[ IntegerDigits/@ {#^2,#^3}]],IntegerDigits[#]] == {}&] (* _Harvey P. Dale_, Apr 25 2018 *)
%K nonn,base
%O 0,1
%A _Patrick De Geest_
|