A083254 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

Other ways to Give

A083254

a(n) = 2*phi(n) - n.

1, 0, 1, 0, 3, -2, 5, 0, 3, -2, 9, -4, 11, -2, 1, 0, 15, -6, 17, -4, 3, -2, 21, -8, 15, -2, 9, -4, 27, -14, 29, 0, 7, -2, 13, -12, 35, -2, 9, -8, 39, -18, 41, -4, 3, -2, 45, -16, 35, -10, 13, -4, 51, -18, 25, -8, 15, -2, 57, -28, 59, -2, 9, 0, 31, -26, 65, -4, 19, -22, 69, -24, 71, -2, 5, -4, 43, -30, 77, -16, 27, -2, 81, -36, 43, -2, 25

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,5

COMMENTS

Möbius transform of A033879, deficiency of n. - Antti Karttunen, Dec 26 2017

LINKS

R. J. Mathar, Table of n, a(n) for n = 1..10000

FORMULA

a(n) = totient(n) - cototient(n) = A000010(n) - A051953(n).

From Antti Karttunen, Dec 26 2017: (Start)

a(n) = A065620(A297153(n)) = A117966(A297154(n)).

a(n) = A297114(n) + A297115(n).

a(2n) = A297114(2n).

For all n >= 1, -a(A000010(n)) = A293516(n).

(End)

Sum_{k=1..n} a(k) ~ c * n^2, where c = 6/Pi^2 - 1/2 = 0.107927... . - Amiram Eldar, Sep 07 2023

EXAMPLE

Case 1# - totient(x)-cototient[x] = 0 if x is a power of 2;

Case 2# - totient(x)>cototient[x] gives odd primes and also A067800, (= A014076 except probably A036798); e.g. n = 33: a(33) = 2.20-33 = 7; n = p prime: a(p) = p-2;

Case 3# - totient(x)<cototient[x] gives even numbers without powers of 2 and most probably A036798; e.g. n = 20: a(20) = -4; n = 105: a(105) = 2.48-105 = 96-105 = -9.

MAPLE

A083254 := proc(n)

2*numtheory[phi](n)-n ;

end proc: # R. J. Mathar, Jan 13 2014

MATHEMATICA

Table[2*EulerPhi[w]-w, {w, 1, 1000}]

PROG

(PARI) a(n)=2*eulerphi(n)-n \\ Charles R Greathouse IV, Feb 21 2013

CROSSREFS

Cf. A000010, A051953, A000079, A014076, A033879, A067800, A036798, A083255, A115405, A293516, A297114, A297115, A297153, A297154.

Sequence in context: A021887 A085015 A378644 * A068453 A111986 A368744

Adjacent sequences: A083251 A083252 A083253 * A083255 A083256 A083257

KEYWORD

easy,sign

AUTHOR

Labos Elemer, May 08 2003

STATUS

approved