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

Links

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

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 *)

Crossrefs

Intersection of A029800 and A000040.

Sequence in context: A235160 A109177 A109179 * A188755 A328939 A234062

Adjacent sequences: A030090 A030091 A030092 * A030094 A030095 A030096

Keyword

nonn,base

Author

Patrick De Geest

Extensions

Offset changed by Andrew Howroyd, Aug 11 2024

Status

approved