A164648 Numbers k such that sigma(k)/phi(k) = 25/16.
40859, 48505, 54385, 121771, 156125, 565607, 1154419, 1219933, 1294363, 2448397, 3590461, 9710975, 16067363, 16069573, 17984515, 19013455, 21341755, 25804115, 26515223, 27656155, 29655415, 30372605, 32101255, 34467653, 36546355, 38043943, 38645981, 39559219
Offset: 1
Links
- Donovan Johnson, Table of n, a(n) for n = 1..1000
Crossrefs
Programs
-
Mathematica
Select[Range[2000000], DivisorSigma[1, #]/EulerPhi[#] == 25/16 &] (* Carl Najafi, Aug 16 2011 *)
-
PARI
for( n=1,1e7, sigma(n)==25/16*eulerphi(n) && print1(n","))
Extensions
More terms from Carl Najafi, Aug 16 2011
Comments