A100669 - OEIS

%I #18 Dec 22 2024 12:16:32

%S 2,101,149,163,331,353,401,419,541,607,811,823,853,877,883,919,1013,

%T 1279,1289,1291,1297,1523,1531,1543,1861,2017,2099,2113,2309,2689,

%U 3607,3613,4603,4637,4723,5107,5113,5197,5261,5849,6011,6067,6089,7187,7853

%N Zeros of the Mertens function that are also prime.

%H A. Delarte, <a href="http://archive.is/0NI1g">Mathematician reaches 100k milestone for online integer archive</a>, The South End, November 11, 2004, page 5

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

%H PrimeFan, <a href="/A031214/a031214.pdf">Esoteric Integer Sequences</a> [Cached copy]

%t Select[Range[4000], Plus @@ MoebiusMu[Range[#]] == 0 && PrimeQ[#] &] (* _Carl Najafi_, Aug 17 2011 *)

%o (PARI) s=0;for(n=1,1e4,s+=moebius(n); if(!s && isprime(n), print1(n", "))) \\ _Charles R Greathouse IV_, Jan 28 2014

%Y Cf. A028442.

%K nonn

%O 0,1

%A Robert Happelberg (roberthappelberg(AT)yahoo.com), Dec 05 2004