login
A030092
Primes p such that p and p^3 have the same set of digits.
0
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,1
MATHEMATICA
Select[Prime[Range[400000]], Union[IntegerDigits[#]] == Union[ IntegerDigits[ #^3]]&] (* Harvey P. Dale, Aug 26 2013 *)
CROSSREFS
Intersection of A029795 and A000040.
Sequence in context: A115497 A205925 A030084 * A237073 A364266 A179448
KEYWORD
nonn,base
EXTENSIONS
Offset changed by Andrew Howroyd, Aug 11 2024
STATUS
approved