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

Author

Donald S. McDonald, May 17 2002

Keywords

• nonn

Crossrefs

Cf. A070888-A070891.

Programs

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}]

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

Extensions

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