%I #6 Nov 21 2013 12:46:28
%S 10253497,74058619,74563219,93689027,102438967,103259867,103271569,
%T 104369581,106725389,106948327,107086249,125384957,125987473,
%U 127035269,130256479,130284769,136052897,146970823,147502963
%N Primes such that p, p^2 and p^3 have same 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 *)
%K nonn,base
%O 0,1
%A _Patrick De Geest_
|