OFFSET
1,1
FORMULA
MATHEMATICA
pri[x_] :=pri[x-1]*Prime[x]; pri[0]=1; s = 0; k = 1; Do[ While[s = s + MoebiusMu[k]; s + PrimePi[k] < pri[n], k++ ]; Print[k]; k++, {n, 10}]
CROSSREFS
KEYWORD
hard,more,nonn
AUTHOR
Labos Elemer, May 03 2004
EXTENSIONS
a(8)-a(10) from Donovan Johnson, Jun 21 2012
STATUS
approved