OFFSET
1,2
COMMENTS
LINKS
R. Zumkeller, Table of n, a(n) for n = 1..10000
FORMULA
Multiplicative with p^e -> A070321(p^e), p prime.
MAPLE
A081210 := proc(n)
local a, pe;
a :=1 ;
for pe in ifactors(n)[2] do
a := a*A070321(op(1, pe)^op(2, pe)) ;
end do:
a ;
end proc:
seq(A081210(n), n=1..100) ; # R. J. Mathar, May 25 2023
MATHEMATICA
gsf[n_] := For[k = n, True, k--, If[ SquareFreeQ[k], Return[k]]]; a[n_] := Times @@ gsf /@ Power @@@ FactorInteger[n]; Table[a[n], {n, 1, 80}] (* Jean-François Alcover, Mar 27 2013 *)
CROSSREFS
KEYWORD
nonn,mult
AUTHOR
Reinhard Zumkeller, Mar 10 2003
STATUS
approved