login
A100767
Numbers for which the values of the Moebius function (A008683) and the Mertens function (A002321) are both 1.
4
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,2
COMMENTS
This sequence is a subsequence of A100306, Numbers for which the values of the Moebius function and the Mertens function agree.
MATHEMATICA
(* If not already defined *) If[Names["Mertens"] == {}, Mertens[x_] := Plus @@ MoebiusMu[Range[1, x]]]; Select[Range[2500], MoebiusMu[ # ] == 1 && Mertens[ # ] == 1 &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Alonso del Arte, Jan 03 2005
EXTENSIONS
Offset corrected by Donovan Johnson, Jun 19 2012
STATUS
approved