OFFSET
1,6
COMMENTS
Number of terms of A000469 that divide n.
LINKS
MAPLE
with(numtheory): seq(2^nops(factorset(n)) - nops(factorset(n)), n=1..80); # Ridouane Oudra, Dec 07 2023
MATHEMATICA
a[n_] := DivisorSum[n, 1 &, ! PrimeQ[#] && SquareFreeQ[#] &]; Array[a, 100] (* Amiram Eldar, Jun 11 2022 *)
PROG
CROSSREFS
Inverse Möbius transform of A354819.
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jun 11 2022
STATUS
approved