%I #6 Mar 30 2012 18:39:02
%S 1,2,6,10,12,20,24,34,40,48,60,68,80,85,96,136,160,192,272,320,384,
%T 399,514,544,640,768,1028,1088,1280,1536,2040,2056,2176,2560,3072,
%U 4112,4352,5120,6144,8224,8704,10240,12288,13805,16448,17408,20480,24576
%N Numbers n such that phi(n) = b(n,1)^b(n,0) where b(n,1) is the number of 1's in binary representation of n and b(n,0) the number of 0's.
%o (PARI) for(s=1,100000,if(sum(i=1,length(binary(s)),if(component(binary(s),i)-1,0,1))^sum(i=1,length(binary(s)),if(component(binary(s),i),0,1))==eulerphi(s),print1(s,",")))
%Y Cf. A023416, A000120.
%K easy,nonn
%O 1,2
%A _Benoit Cloitre_, Jun 22 2002
|