%I #12 Aug 13 2024 21:35:17
%S 2,3,7,47,53,157,577
%N Primes p 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 *)
%Y Primes in A029790.
%K nonn,base,hard
%O 1,1
%A _Patrick De Geest_
%E Offset changed by _Andrew Howroyd_, Aug 13 2024