A074887 Numbers n such that sigma(n - phi(n)) = phi(n + phi(n)).

915, 12957, 20745, 26985, 54621, 97785, 111615, 188013, 191775, 197631, 231045, 258687, 428745, 565761, 726645, 793653, 807639, 829857, 941451, 1048719, 1084587, 1224111, 1233027, 1863255, 1920681, 1973805, 2043489, 2129883, 2254119, 2265417, 2300151

Offset

1,1

Links

Table of n, a(n) for n=1..31.

Example

sigma(915-phi(915)) = sigma(915-480) = 720; phi(915+phi(915)) = phi(1395) = 720, so 915 is a term of the sequence.

Mathematica

r = {}; Do[e = EulerPhi[n]; If[DivisorSigma[1, n - e] == EulerPhi[n + e], r = Append[r, n]], {n, 1, 10^5}]; r
Select[Range[3000000], DivisorSigma[1, #-EulerPhi[#]]==EulerPhi[#+ EulerPhi[ #]]&] (* Harvey P. Dale, Sep 03 2013 *)

Crossrefs

Sequence in context: A189182 A365514 A252427 * A234993 A234764 A282592

Adjacent sequences: A074884 A074885 A074886 * A074888 A074889 A074890

Keyword

nonn

Author

Joseph L. Pe, Sep 13 2002

Extensions

More terms from Harvey P. Dale, Sep 03 2013

Status

approved