|
%I #8 Sep 08 2014 02:54:32
%S 1,2,34,512,34816,421192,1213173,1311471,2291616,2622942,7624162,
%T 12333173,13421568,15221171,27132646,41134392,49131264,76142643,
%U 121676464,124127822,143327424,143942616,149424426,166467132,194626614,227826131,417414464,423432736
%N Numbers n such that phi(n)=phi(d_1)^phi(d_1)*phi(d_2)^phi(d_2)* ...*phi(d_k)^phi(d_k) where d_1 d_2 ... d_k is the decimal expansion of n.
%C Next term is greater than 3*10^8.
%H Hiroaki Yamanouchi, <a href="/A104898/b104898.txt">Table of n, a(n) for n = 1..4065</a>
%e 227826131 is in the sequence because phi(227826131) = phi(2)^phi(2) * phi(2)^phi(2) * phi(7)^phi(7) * phi(8)^phi(8) * phi(2)^phi(2) * phi(6)^phi(6) * phi(1)^phi(1) * phi(3)^phi(3)) * phi(1)^phi(1).
%t Do[h=IntegerDigits[m];l=Length[h];If[Min[h]>0&&EulerPhi[m]==Product[ EulerPhi[h[[k]]]^EulerPhi[h[[k]]], {k, l}], Print[m]], {m, 300000000}]
%Y Cf. A103113, A058627.
%K base,nonn
%O 1,2
%A _Farideh Firoozbakht_, Mar 29 2005
%E a(26)-a(28) from _Hiroaki Yamanouchi_, Sep 08 2014
|
