A099076 a(n) = A000960(n) mod 3.

1, 0, 1, 1, 1, 0, 0, 1, 0, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 0, 1, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 0, 0, 0, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 0, 0, 1, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0

Offset

0,1

Comments

No 2's appear.

Links

Table of n, a(n) for n=0..104.

Maple

S[1]:={seq(i, i=1..10000)}: for n from 2 to 10000 do S[n]:=S[n-1] minus {seq(S[n-1][n*i], i=1..nops(S[n-1])/n)} od: A:=S[10000]: seq(A[j] mod 3, j=1..nops(A)); # Emeric Deutsch, Nov 15 2004

Mathematica

del[lst_, k_] := lst[[ Select[ Range[ Length[ lst]], Mod[ #, k] != 0 &]]]; For[ k = 2; s = Range[10000], k <= Length[s], k++, s = del[s, k]]; Mod[s, 3]

Crossrefs

Cf. A000960.

Sequence in context: A118251 A209198 A282343 * A282339 A175479 A307243

Adjacent sequences: A099073 A099074 A099075 * A099077 A099078 A099079

Keyword

nonn,easy

Author

N. J. A. Sloane and David Applegate, Nov 15 2004

Extensions

More terms from Robert G. Wilson v and Emeric Deutsch, Nov 15 2004

Status

approved