A062816 a(n) = phi(n)*tau(n) - 2n = A000010(n)*A000005(n) - 2*n.

-1, -2, -2, -2, -2, -4, -2, 0, 0, -4, -2, 0, -2, -4, 2, 8, -2, 0, -2, 8, 6, -4, -2, 16, 10, -4, 18, 16, -2, 4, -2, 32, 14, -4, 26, 36, -2, -4, 18, 48, -2, 12, -2, 32, 54, -4, -2, 64, 28, 20, 26, 40, -2, 36, 50, 80, 30, -4, -2, 72, -2, -4, 90, 96, 62, 28, -2, 56, 38, 52, -2, 144, -2, -4, 90, 64, 86, 36, -2, 160, 108, -4, -2, 120, 86, -4

Offset

1,2

Comments

It can be shown that phi(n)*tau(n) >= n, which means that quotient = n/tau(n) <= phi(n); note: a(n)+5 is positive.

The value is always positive except when a(n)=0 for {8,9,12}; or a(n)=-2 for primes together with 4 (i.e., for A046022 but without 1); or a(n)=-4 for A001747 (without 2 and 4); or a(n)=-1 for n=1.

Links

Harry J. Smith, Table of n, a(n) for n = 1..2000

Mathematica

Table[EulerPhi[n]DivisorSigma[0, n]-2n, {n, 90}] (* Harvey P. Dale, Feb 03 2021 *)

Prog

(PARI) a(n)={eulerphi(n)*numdiv(n) - 2*n} \\ Harry J. Smith, Aug 11 2009

Crossrefs

Cf. A000010, A000005, A062516, A046022, A001747, A036762, A036763, A051728, A051729, A051730.

Sequence in context: A092904 A231883 A370690 * A306653 A132003 A122857

Adjacent sequences: A062813 A062814 A062815 * A062817 A062818 A062819

Keyword

sign

Author

Labos Elemer, Jul 20 2001

Extensions

Offset changed from 0 to 1 by Harry J. Smith, Aug 11 2009

Status

approved