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,1

Links

Table of n, a(n) for n=1..24.

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

Adjacent sequences: A030089 A030090 A030091 * A030093 A030094 A030095

Keyword

nonn,base

Author

Patrick De Geest

Extensions

Offset changed by Andrew Howroyd, Aug 11 2024

Status

approved