%I

%S 2,3,5,13,17,19,29,59,73

%N Primes p such that p, p^2 and p^3 are distinct-digit numbers.

%t Select[Prime[Range[50]],Max[Flatten[DigitCount/@{#,#^2,#^3}]]<2&] (* _Harvey P. Dale_, Aug 20 2019 *)

%Y Subsequence of A259187. Cf. A029743.

%K base,nonn,fini,full

%O 1,1

%A _Zak Seidov_, Jun 20 2015