A030093 - OEIS

%I #13 Aug 11 2024 22:06:10

%S 10253497,74058619,74563219,93689027,102438967,103259867,103271569,

%T 104369581,106725389,106948327,107086249,125384957,125987473,

%U 127035269,130256479,130284769,136052897,146970823,147502963

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

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

%Y Intersection of A029800 and A000040.

%K nonn,base

%O 1,1

%A _Patrick De Geest_

%E Offset changed by _Andrew Howroyd_, Aug 11 2024