login
This site is supported by donations to The OEIS Foundation.

 

Logo

Thanks to everyone who made a donation during our annual appeal!
To see the list of donors, or make a donation, see the OEIS Foundation home page.

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A295301 a(n) = n - phi(sigma(n)), where phi = A000010 and sigma = A000203. 9
0, 0, 1, -2, 3, 2, 3, 0, -3, 4, 7, 0, 7, 6, 7, -14, 11, -6, 11, 8, 5, 10, 15, 8, -5, 14, 11, 4, 21, 6, 15, -4, 17, 16, 19, -36, 19, 22, 15, 16, 29, 10, 23, 20, 21, 22, 31, -12, 13, -10, 27, 10, 35, 22, 31, 24, 25, 34, 43, 12, 31, 30, 15, -62, 41, 18, 35, 32, 37, 22, 47, -24, 37, 38, 15, 28, 45, 30, 47, 20 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,4

LINKS

Antti Karttunen, Table of n, a(n) for n = 1..32768

FORMULA

a(n) = n - A062401(n).

MAPLE

with(numtheory): seq(n-phi(sigma(n)), n=1..80); # Muniru A Asiru, Jan 02 2019

MATHEMATICA

Array[# - EulerPhi@ DivisorSigma[1, #] &, 80] (* Michael De Vlieger, Jan 01 2019 *)

PROG

(PARI) A295301(n) = (n - eulerphi(sigma(n)));

(MAGMA) [n-EulerPhi(SumOfDivisors(n)):n in [1..100]]; // Marius A. Burtea, Jan 01 2019

(GAP) a:=List([1..80], n->n-Phi(Sigma(n)));; Print(a); # Muniru A Asiru, Jan 02 2019

CROSSREFS

Cf. A000010, A000203, A062401, A295303.

Cf. A001229 (positions of zeros), A066694 (of negative terms).

Cf. also A295302, A295305.

Sequence in context: A266911 A244075 A059905 * A014836 A197262 A085032

Adjacent sequences:  A295298 A295299 A295300 * A295302 A295303 A295304

KEYWORD

sign

AUTHOR

Antti Karttunen, Nov 21 2017

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified January 18 09:00 EST 2019. Contains 319269 sequences. (Running on oeis4.)