|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
For[ n=1, True, n++, If[ DivisorSigma[ 1, EulerPhi[ n ] ]/DivisorSigma[ 1, n ]==3, Print[ n ] ] ]
|
|
PROG
|
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|