OFFSET
1,2
COMMENTS
Since sum(n>0,mu(n)*log(n)/n)=-1, this sequence gives a subset of integers that satisfy this sum.
PROG
(PARI) S=0; a=0; w=2; for(n=1, 200, b=a+1; while(abs(S+moebius(b)*log(b)/b+1)>=w, b++); S=S+moebius(b)*log(b)/b; w=abs(S+1); a=b; print1(b, ", "))
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Jun 06 2003
STATUS
approved