A030092 - OEIS

%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