OFFSET
1,2
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
Zhu Weiyi, On the cube free number sequences, Smarandache Notions J., Vol. 14 (2004), pp. 199-202.
FORMULA
a(n) = Sum_{k=1..n} A004709(k).
a(n) = (zeta(3)/2)*n^2 + O(n^(3/2+eps)) (Weiyi, 2004).
MATHEMATICA
Accumulate[Select[Range[100], Max[FactorInteger[#][[;; , 2]]] < 3 &]]
PROG
(Python)
from math import comb
from sympy import mobius, integer_nthroot
def A358038(n):
def f(x): return int(n+x-sum(mobius(k)*(x//k**3) for k in range(1, integer_nthroot(x, 3)[0]+1)))
m, k = n, f(n)
while m != k: m, k = k, f(k)
return sum(mobius(k)*(s:=k**3)*comb(m//s+1, 2) for k in range(1, integer_nthroot(m, 3)[0]+1)) # Chai Wah Wu, Oct 20 2025
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Oct 29 2022
EXTENSIONS
Corrected by Amiram Eldar, Jan 02 2024
STATUS
approved
