OFFSET
1,5
MATHEMATICA
nn = 300; a = Prime[Range[nn]]; cnt = Table[0, {nn}]; Do[p = a[[i]]; If[p > 0, Do[a[[j]] = 0; cnt[[j]]++, {j, i + p, nn, p}]], {i, nn}]; cnt (* T. D. Noe, Apr 15 2011 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
N. J. A. Sloane, Nov 18 2004
EXTENSIONS
More terms from Ray Chandler, Nov 19 2004
STATUS
approved