login
Primes p such that digits of p do not appear in p^2 or p^3 (probably finite).
0

%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