|
|
A066946
|
|
Numbers n such that phi(phi(n)) + sigma(sigma(n)) - phi(sigma(n)) - sigma(phi(n)) = sigma(n).
|
|
3
|
|
|
827, 975, 1607, 13149, 20919, 34921, 58649, 202223, 347869, 545377, 900521, 1451135, 2288845, 2453509, 2804855, 3063031, 4134579, 11320177, 11446955, 14573651, 16477307, 17678225, 25164429, 27514643, 28475077, 47443799, 49348333, 50971501, 53108173, 66213757
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
Let n = 827. Then phi(phi(n)) + sigma(sigma(n)) - phi(sigma(n)) - sigma(phi(n)) = phi(826) + sigma(828) - phi(828) - sigma(826) = 348 + 2184 - 264 - 1440 = 828 = sigma(n), so 827 is in the sequence.
|
|
MATHEMATICA
|
g[x_] := Module[{a, b, c, d, e, f}, a=EulerPhi[x]; b=DivisorSigma[1, x]; c=EulerPhi[a]; d=DivisorSigma[1, b]; e=EulerPhi[b]; f=DivisorSigma[1, a]; c+d-e-f==b]; Do[If[g[n]==True, Print[n]], {n, 1, 10^5}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|