OFFSET
1,1
COMMENTS
FORMULA
MATHEMATICA
mer[x_] :=mer[x]=mer[x-1]+MoebiusMu[x]; mer[0]=0; $RecursionLimit=1000; t=Table[mer[w]+PrimePi[w], {w, 1, 1000}] Table[Min[Flatten[Position[t, Prime[j]]]], {j, 1, 200}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Apr 28 2004
STATUS
approved