A259188 Primes p such that p, p^2 and p^3 are distinct-digit numbers.
2, 3, 5, 13, 17, 19, 29, 59, 73
Offset: 1
Programs
-
Mathematica
Select[Prime[Range[50]],Max[Flatten[DigitCount/@{#,#^2,#^3}]]<2&] (* Harvey P. Dale, Aug 20 2019 *)