OFFSET
1,6
COMMENTS
a(n) is the number of terms of A332820 that divide n.
LINKS
FORMULA
MATHEMATICA
f[p_, e_] := e*2^(PrimePi[p] - 1); q[1] = True; q[n_] := Divisible[Plus @@ f @@@ FactorInteger[n], 3]; a[n_] := DivisorSum[n, 1 &, q[#] &]; Array[a, 100] (* Amiram Eldar, Apr 15 2022 *)
PROG
CROSSREFS
Inverse Möbius transform of A353350.
KEYWORD
nonn
AUTHOR
Antti Karttunen, Apr 15 2022
STATUS
approved