|
%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
|
