%I A153428
%S A153428 1,14611,141152,2831112,113216152
%N A153428 Numbers n such that phi(n)=p^3, where p is product of digits of n.
%C A153428 There is no further term up to 3*10^8.
%e A153428 phi(113216152)=(1*1*3*2*1*6*1*5*2)^3, so 113216152 is in the sequence.
%t A153428 Do[If[Apply[Times,IntegerDigits[n]]^3==EulerPhi[n],Print[n]],{n,300000000}]
%Y A153428 Cf. A153426, A153427.
%Y A153428 Sequence in context: A144649 A166371 A076165 this_sequence A032736 A032738 
               A133858
%Y A153428 Adjacent sequences: A153425 A153426 A153427 this_sequence A153429 A153430 
               A153431
%K A153428 base,more,nonn
%O A153428 1,2
%A A153428 Farideh Firoozbakht (mymontain(AT)yahoo.com), Jan 02 2009