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
KEYWORD
sign
AUTHOR
Antti Karttunen, Nov 21 2017
STATUS
approved