A070892 Numbers n such that absolute value of Sum_{k=1..n} mu(k)/k sets a new minimum.

1, 2, 3, 5, 7, 11, 61, 154, 857, 859, 2141, 2153, 2161, 39011, 39065, 39095, 56026, 56045, 56101, 56189, 56242, 56245, 56254, 56263, 56359, 2985634, 2985703, 2986715, 2986718, 2986721, 16904494, 16904497, 16904531, 16904534

Offset

1,2

Links

Table of n, a(n) for n=1..34.

Mathematica

s = 1; t = 0; Do[t = t + MoebiusMu[n] / n; If[ s > Abs[t], s = Abs[t]; Print[n]], {n, 1, 2 * 10^7}]

Prog

(PARI) t = 0.; t1 = 1; v = []; for( n = 1, 1400, t = t + moebius( n) / n; if( (t / t1 )^2 < 1, t1 = t; v = concat( v, n), )); v

Crossrefs

Cf. A070888-A070891.

Sequence in context: A058253 A004089 A092791 * A075800 A067909 A323697

Adjacent sequences: A070889 A070890 A070891 * A070893 A070894 A070895

Keyword

nonn

Author

Donald S. McDonald, May 17 2002

Extensions

Edited and extended by Robert G. Wilson v, May 24 2002

Status

approved