A077080 a(n) = phi(sigma(n) + phi(n)) = A000010(A000203(n) + A000010(n)) = A000010(A065387(n)).

1, 2, 2, 6, 4, 6, 6, 18, 18, 10, 10, 16, 12, 8, 16, 24, 16, 24, 18, 20, 20, 22, 22, 32, 32, 18, 28, 32, 28, 32, 30, 78, 32, 24, 24, 102, 36, 24, 32, 52, 40, 36, 42, 48, 32, 46, 46, 48, 60, 112, 48, 60, 52, 44, 48, 48, 56, 58, 58, 88, 60, 36, 48, 104, 40, 80, 66, 78, 48, 48, 70

Offset

1,2

Links

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

Mathematica

Table[EulerPhi[DivisorSigma[1, n]+EulerPhi[n]], {n, 80}] (* Harvey P. Dale, Mar 16 2015 *)

Prog

(PARI) a(n)=eulerphi(sigma(n)+eulerphi(n)) \\ Charles R Greathouse IV, Feb 14 2013

Crossrefs

Cf. A000010, A000203, A065387, A077081-A077085.

Sequence in context: A028390 A036500 A371824 * A273012 A222404 A081111

Adjacent sequences: A077077 A077078 A077079 * A077081 A077082 A077083

Keyword

nonn

Author

Labos Elemer, Oct 28 2002

Status

approved