OFFSET
0,1
LINKS
A. Delarte, Mathematician reaches 100k milestone for online integer archive, The South End, November 11, 2004, page 5
PrimeFan, Esoteric Integer Sequences
MATHEMATICA
Select[Range[4000], Plus @@ MoebiusMu[Range[#]] == 0 && PrimeQ[#] &] (* Carl Najafi, Aug 17 2011 *)
PROG
(PARI) s=0; for(n=1, 1e4, s+=moebius(n); if(!s && isprime(n), print1(n", "))) \\ Charles R Greathouse IV, Jan 28 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert Happelberg (roberthappelberg(AT)yahoo.com), Dec 05 2004
STATUS
approved