STATUS
editing
approved
editing
approved
# alternative
A061704 := proc(n)
local a, pe ;
a := 1 ;
for pe in ifactors(n)[2] do
op(2, pe) ;
a := a*(1+floor(%/3)) ;
end do:
a ;
end proc:
seq(A061704(n), n=1..80) ; # R. J. Mathar, May 10 2023
approved
editing
proposed
approved
editing
proposed
a(128) = 4 3 since 128 is divisible by 1^3 = 1, 2^3 = 8 and 4^3 = 64.
approved
editing
editing
approved
a(n) = Sum_{k=1..n} chi(1 - ceiling(n/k^3) + floor(n/k^3), where chi is the integer characteristic). - Wesley Ivan Hurt, Jan 28 2021
approved
editing
proposed
approved
editing
proposed
a(n) = Sum_{k=1..n} chi(n/k^3), where chi is the integer characteristic. - Wesley Ivan Hurt, Jan 28 2021
approved
editing