1,3

Robert Israel, Table of n, a(n) for n = 1..10000

a(n) = n-A003557(n). - Vladeta Jovovic, Sep 15 2006

f:= n -> n - n/convert(numtheory:-factorset(n), `*`):

map(f, [$1..100]); # Robert Israel, Apr 10 2018

Cf. A008479, A010846, A010847.

Sequence in context: A121600 A126870 A137413 * A133937 A181523 A181537

Adjacent sequences: A010845 A010846 A010847 * A010849 A010850 A010851

nonn,easy

Olivier Gérard

Definition corrected by Vladeta Jovovic, Sep 15 2006

approved