1,6

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

a(n) = Sum_{d|n} A008683(n/d)*A032742(d).

Table[DivisorSum[n, # MoebiusMu[n/#]/FactorInteger[#][[1, 1]] &], {n, 98}] (* Michael De Vlieger, Mar 10 2018 *)

(PARI)

A032742(n) = if(1==n, n, n/vecmin(factor(n)[, 1]));

A300236(n) = sumdiv(n, d, moebius(n/d)*A032742(d));

Cf. A008683, A032742, A300239.

Sequence in context: A035663 A117192 A078729 * A238158 A029906 A094907

Adjacent sequences: A300233 A300234 A300235 * A300237 A300238 A300239

nonn

Antti Karttunen, Mar 10 2018

approved