This site is supported by donations to The OEIS Foundation.

 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 * A308133 A306426 A014836 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.

Last modified October 18 20:20 EDT 2019. Contains 328197 sequences. (Running on oeis4.)