A030093 Primes p such that p, p^2 and p^3 all have the same set of digits.

10253497, 74058619, 74563219, 93689027, 102438967, 103259867, 103271569, 104369581, 106725389, 106948327, 107086249, 125384957, 125987473, 127035269, 130256479, 130284769, 136052897, 146970823, 147502963

Offset: 1

Author

Patrick De Geest

Keywords

• nonn
• base

Crossrefs

Intersection of A029800 and A000040.

Programs

Mathematica

sdQ[n_]:=Module[{c=Union/@(IntegerDigits/@{n,n^2,n^3})}, c[[1]] == c[[2]] == c[[3]]]; Select[Prime[Range[8400000]],sdQ] (* Harvey P. Dale, Jan 10 2012 *)

Extensions

Offset changed by Andrew Howroyd, Aug 11 2024