OFFSET
1,3
COMMENTS
Equals row sums of triangle A143442.
EXAMPLE
MATHEMATICA
Table[n Plus @@ MoebiusMu[Range[n]], {n, 1, 80}] (* Carl Najafi, Aug 17 2011 *)
PROG
(PARI) a(n) = n*sum(k=1, n, moebius(k)); \\ Michel Marcus, Aug 22 2015
(Python)
from functools import lru_cache
@lru_cache(maxsize=None)
def A143443(n):
if n == 0:
return 0
c, j = n, 2
k1 = n//j
while k1 > 1:
j2 = n//k1 + 1
c += (j2-j)*A143443(k1)//k1
j, k1 = j2, n//j2
return n*(j-c) # Chai Wah Wu, Mar 30 2021
CROSSREFS
KEYWORD
sign
AUTHOR
Gary W. Adamson, Aug 15 2008
EXTENSIONS
More terms from Carl Najafi, Aug 17 2011
STATUS
approved