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,1

Comments

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

Links

Table of n, a(n) for n=1..7.

Mathematica

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

Crossrefs

Primes in A029790.

Sequence in context: A198959 A000231 A090593 * A260298 A283807 A344488

Adjacent sequences: A030087 A030088 A030089 * A030091 A030092 A030093

Keyword

nonn,base,hard

Author

Patrick De Geest

Extensions

Offset changed by Andrew Howroyd, Aug 13 2024

Status

approved