OFFSET
1,2
COMMENTS
LINKS
FORMULA
MATHEMATICA
r[n_] := FactorInteger[n][[1, 1]];
s[n_] := n/r[n];
A[n_] := A[n] = If[n==1, {1, 1}, If[PrimeOmega[n]==1, {A[PrimePi[n]][[2]], A[PrimePi[n]] // Total}, A[r[n]] * A[s[n]]]];
a[n_] := A[n][[2]];
a /@ Range[1, 80] (* Jean-François Alcover, Sep 20 2019 *)
PROG
(Haskell) see A184165.
CROSSREFS
KEYWORD
nonn,mult
AUTHOR
Emeric Deutsch and Reinhard Zumkeller, Sep 01 2013
STATUS
approved