OFFSET
1,1
COMMENTS
LINKS
Donovan Johnson, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Range[1000000, 2000000], DivisorSigma[1, #]/EulerPhi[#] == 25/16 &] (* Carl Najafi, Aug 16 2011 *)
PROG
(PARI) for( n=1, 1e7, sigma(n)==25/16*eulerphi(n) && print1(n", "))
CROSSREFS
KEYWORD
nonn
AUTHOR
M. F. Hasler, Aug 22 2009
EXTENSIONS
More terms from Carl Najafi, Aug 16 2011
STATUS
approved