A100767 - OEIS

%I #13 May 08 2021 23:02:27

%S 1,94,146,161,215,237,330,334,365,394,415,538,542,794,799,813,815,851,

%T 870,878,899,905,914,917,921,1003,1006,1011,1257,1262,1267,1271,1286,

%U 1290,1293,1330,1337,1339,1343,1522,1529,1538,1858,1865,1939,2018,2098

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

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

%H Donovan Johnson, <a href="/A100767/b100767.txt">Table of n, a(n) for n = 1..10000</a>

%H PrimeFan, <a href="http://primefan.tripod.com/EsotericIntegerSequences.html">Esoteric Integer Sequences</a>

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

%Y Cf. A100306, A100765, A100766.

%K nonn

%O 1,2

%A _Alonso del Arte_, Jan 03 2005

%E Offset corrected by _Donovan Johnson_, Jun 19 2012