A100767 Numbers for which the values of the Moebius function (A008683) and the Mertens function (A002321) are both 1.

1, 94, 146, 161, 215, 237, 330, 334, 365, 394, 415, 538, 542, 794, 799, 813, 815, 851, 870, 878, 899, 905, 914, 917, 921, 1003, 1006, 1011, 1257, 1262, 1267, 1271, 1286, 1290, 1293, 1330, 1337, 1339, 1343, 1522, 1529, 1538, 1858, 1865, 1939, 2018, 2098

Offset: 1

Author

Alonso del Arte, Jan 03 2005

Keywords

• nonn

Comments

This sequence is a subsequence of A100306, Numbers for which the values of the Moebius function and the Mertens function agree.

Links

• Donovan Johnson, Table of n, a(n) for n = 1..10000
• PrimeFan, Esoteric Integer Sequences
• PrimeFan, Esoteric Integer Sequences [Cached copy]

Crossrefs

Cf. A100306, A100765, A100766.

Programs

Mathematica

(* If not already defined *) If[Names["Mertens"] == {}, Mertens[x_] := Plus @@ MoebiusMu[Range[1, x]]]; Select[Range[2500], MoebiusMu[ # ] == 1 && Mertens[ # ] == 1 &]

Extensions

Offset corrected by Donovan Johnson, Jun 19 2012