A066881 Numbers n such that sigma(phi(n))/sigma(n) is an integer >= 4.
121679, 1043909, 2350171, 2918263, 3396103, 3566807, 3688067, 4019467, 4562827, 5963407, 7300697, 7485979, 7853933, 8103301, 8364151, 9237779, 9514213, 9638527, 10531123, 11094619, 11384447, 12721937, 13576267, 15331313
Offset: 1
Keywords
Examples
a(1) = 121679 because sigma(phi(121679))/sigma(121679) = 4.
Links
- Harry J. Smith, Table of n, a(n) for n = 1..370
Crossrefs
Cf. A066817.
Programs
-
Maple
for n from 1 do spn := numtheory[sigma](numtheory[phi](n)) ; sn := numtheory[sigma](n) ; if spn mod sn = 0 then if spn/sn >= 4 then print(n,spn/sn) fi; fi; od: # R. J. Mathar, Oct 01 2008
-
PARI
{ n=0; for (m=1, 10^10, if((e=sigma(eulerphi(m))) % (s=sigma(m)) == 0 && e/s >= 4, write("b066881.txt", n++, " ", m); if (n==1000, return)) ) } \\ Harry J. Smith, Apr 03 2010
Extensions
Terms a(16) etc. from R. J. Mathar, Oct 01 2008
Comments