A063903 Numbers k such that ud(k)*phi(k) = sigma(k), ud(k) = A034444.
1, 3, 14, 42, 248, 594, 744, 4064, 7668, 12192, 16775168, 50325504, 4294934528, 12884803584, 68719345664, 206158036992
Offset: 1
Programs
-
PARI
ud(n) = 2^omega(n); for(n=1,10^8, if(ud(n)*eulerphi(n)==sigma(n),print(n)))
Extensions
a(11) from R. J. Mathar, Nov 10 2006
a(12) from Farideh Firoozbakht, Mar 25 2007
a(13)-a(16) from Donovan Johnson, Mar 06 2013
Comments