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

2, 3, 7, 47, 53, 157, 577

Offset: 1

Author

Patrick De Geest

Keywords

• nonn
• base
• hard

Comments

No additional terms in the first 1 million primes. - Harvey P. Dale, Apr 25 2018

Crossrefs

Primes in A029790.

Programs

Mathematica

Select[Prime[Range[1000000]],Intersection[Union[Flatten[ IntegerDigits/@ {#^2,#^3}]],IntegerDigits[#]] == {}&] (* Harvey P. Dale, Apr 25 2018 *)

Extensions

Offset changed by Andrew Howroyd, Aug 13 2024