A030092 Primes p such that p and p^3 have the same set of digits.

1035743, 1045573, 1215397, 1396247, 1642309, 2031487, 2149573, 2363149, 2458019, 2569751, 2815973, 2857319, 2986301, 3349517, 3482461, 3530467, 3865079, 4332871, 4387291, 4631489, 4893617, 5170283, 5749013, 5784319

Offset: 1

Author

Patrick De Geest

Keywords

• nonn
• base

Crossrefs

Intersection of A029795 and A000040.

Programs

Mathematica

Select[Prime[Range[400000]],Union[IntegerDigits[#]] == Union[ IntegerDigits[ #^3]]&] (* Harvey P. Dale, Aug 26 2013 *)

Extensions

Offset changed by Andrew Howroyd, Aug 11 2024