[go: up one dir, main page]

login
A030090
Primes p such that digits of p do not appear in p^2 or p^3 (probably finite).
0
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
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
KEYWORD
nonn,base,hard
EXTENSIONS
Offset changed by Andrew Howroyd, Aug 13 2024
STATUS
approved