A063473 a(n) = M(2*n-1), where M(n) is Mertens's function (A002321): Sum_{k=1..n} mu(k), where mu = Moebius function (A008683).
1, -1, -2, -2, -2, -2, -3, -1, -2, -3, -2, -2, -2, -1, -2, -4, -3, -1, -2, 0, -1, -3, -3, -3, -3, -2, -3, -2, -1, -1, -2, -1, 0, -2, -1, -3, -4, -3, -2, -4, -4, -4, -3, -1, -2, -1, 0, 2, 1, 1, 0, -2, -3, -3, -4, -4, -5, -5, -5, -3, -3, -1, -1, -2, -1, -3, -2, -1, -2, -4, -3, -1, 0, 1, 0, -1, -1, -1, -2, 0, 1, 0, -1, -1, -1, -2, -3, -4, -3
Offset: 1
Links
- Harry J. Smith, Table of n, a(n) for n = 1..1000
Programs
-
PARI
M(n)=sum(k=1,n,moebius(k)); j=[]; for(n=1,200,j=concat(j,M(2*n-1))); j
-
PARI
{ for (n=1, 1000, if (n>1, a+=moebius(2*n - 2) + moebius(2*n - 1), a=1); write("b063473.txt", n, " ", a) ) } \\ Harry J. Smith, Aug 22 2009