login
A099362
Number of times the n-th prime is crossed off in the sieve of A099361.
1
0, 0, 1, 0, 2, 0, 1, 1, 1, 0, 3, 0, 1, 1, 1, 0, 2, 1, 2, 1, 1, 0, 2, 0, 2, 1, 1, 0, 2, 0, 1, 3, 1, 0, 2, 0, 1, 1, 3, 0, 2, 0, 1, 1, 2, 1, 2, 0, 2, 1, 1, 0, 3, 0, 1, 1, 1, 1, 2, 1, 1, 1, 1, 0, 2, 0, 2, 2, 2, 0, 3, 0, 1, 2, 1, 0, 2, 0, 1, 1, 2, 0, 2, 1, 1, 2, 1, 1, 2, 0, 1, 1, 1, 0, 3, 0, 3, 1, 1, 0, 3, 1, 1, 1, 1
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
Sequence in context: A074169 A363859 A328458 * A321378 A307039 A243046
KEYWORD
nonn,easy
AUTHOR
N. J. A. Sloane, Nov 18 2004
EXTENSIONS
More terms from Ray Chandler, Nov 19 2004
STATUS
approved