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,2

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

Mathematica

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

Crossrefs

Cf. A100306, A100765, A100766.

Sequence in context: A257525 A020355 A039551 * A050208 A035117 A096755

Adjacent sequences: A100764 A100765 A100766 * A100768 A100769 A100770

Keyword

nonn

Author

Alonso del Arte, Jan 03 2005

Extensions

Offset corrected by Donovan Johnson, Jun 19 2012

Status

approved