login
A067383
Numbers n such that sigma(phi(n))/sigma(n) = 3.
7
181, 899, 2501, 4687, 10991, 12989, 17653, 25199, 25853, 26549, 26657, 54473, 65941, 68381, 72007, 82777, 96197, 98903, 102719, 116449, 124013, 135907, 150121, 169153, 188917, 193553, 201173, 207461, 219559, 234301, 237961, 239279
OFFSET
1,1
LINKS
MATHEMATICA
For[ n=1, True, n++, If[ DivisorSigma[ 1, EulerPhi[ n ] ]/DivisorSigma[ 1, n ]==3, Print[ n ] ] ]
Select[Range[250000], DivisorSigma[1, EulerPhi[#]]/DivisorSigma[1, #]==3&] (* Harvey P. Dale, Sep 08 2024 *)
PROG
(PARI) is(n)=sigma(eulerphi(n=factor(n)))/sigma(n)==3 \\ Charles R Greathouse IV, Nov 27 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Dean Hickerson, Jan 20 2002
STATUS
approved