OFFSET
1,1
MATHEMATICA
t=Table[GCD[w, PrimePi[w]], {w, 1, 1000}]; Flatten[Position[Sign[t-1], 1]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Sep 16 2003
STATUS
approved