|
Search: id:A066939
|
|
|
| A066939 |
|
Numbers n such that phi(phi(n)) + sigma(sigma(n)) - phi(sigma(n)) - sigma(phi(n)) = phi(n) + sigma(n). |
|
+0
3
|
|
| 13954, 106899, 307835, 783201, 979731, 2980255, 9266817
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
For n = 13954, phi(phi(n)) + sigma(sigma(n)) - phi(sigma(n)) - sigma(phi(n)) = phi(6976) + sigma(20934) - phi(20934) - sigma(6976) = 3456 + 45396 - 6972 - 13970 = 27910 = 6976 + 20934 = phi(n) + sigma(n), so 13954 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]; a+b==c+d-e-f]; Do[If[g[n]==True, Print[n]], {n, 1, 10^6}]
|
|
CROSSREFS
|
Cf. A000010, A000203, A066850, A066945, A066946.
Adjacent sequences: A066936 A066937 A066938 this_sequence A066940 A066941 A066942
Sequence in context: A109483 A118464 A031819 this_sequence A140708 A066698 A035918
|
|
KEYWORD
|
more,nonn
|
|
AUTHOR
|
Joseph L. Pe (joseph_l_pe(AT)hotmail.com), Jan 24 2002
|
|
EXTENSIONS
|
Edited by Dean Hickerson (dean(AT)math.ucdavis.edu), Jan 26 2002
|
|
|
Search completed in 0.002 seconds
|
