OFFSET
1,3
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..65537
FORMULA
MATHEMATICA
A060681[n_] := n - n/FactorInteger[n][[1, 1]];
a[n_] := Sum[MoebiusMu[n/d]*A060681[d], {d, Divisors[n]}];
Array[a, 100] (* Jean-François Alcover, Jan 07 2022 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Mar 11 2018
STATUS
approved