|
%I #16 Sep 26 2015 18:26:04
%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>
%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
|
