A039785 Numbers n such that phi(n) is equal to the multiplicative projection of n.
9, 16, 50, 54, 100, 108, 144, 294, 450, 588, 900
Offset: 1
Examples
phi(50)=20, 50 = 2^1 * 5^2, 2*1*5*2 = 20.
Programs
-
PARI
for(n=1, 1000000, f=factor(n); l=#f[,1]; if( eulerphi(n)==prod(i=1, l, f[i,1]) * prod(i=1,l,f[i,2]), print1(n,","))) \\ C. Ronaldo
Comments