In[]:= AbsoluteTiming[
 f[y_] := Table[11110*x + y, {x, 1, 9}];
 g[y_] := Length@Select[f[y], PrimeQ];
 Table[g[y], {y, 1, 9, 2}]]

Out[]= {0.0000828, {2, 3, 0, 1, 3}}