%I #12 Aug 11 2024 22:06:15
%S 1035743,1045573,1215397,1396247,1642309,2031487,2149573,2363149,
%T 2458019,2569751,2815973,2857319,2986301,3349517,3482461,3530467,
%U 3865079,4332871,4387291,4631489,4893617,5170283,5749013,5784319
%N Primes p such that p and p^3 have the same set of digits.
%t Select[Prime[Range[400000]],Union[IntegerDigits[#]] == Union[ IntegerDigits[ #^3]]&] (* _Harvey P. Dale_, Aug 26 2013 *)
%Y Intersection of A029795 and A000040.
%K nonn,base
%O 1,1
%A _Patrick De Geest_
%E Offset changed by _Andrew Howroyd_, Aug 11 2024