A104608 - OEIS (original) (raw)

1, 3, 1, 1, 1, 0, 1, 2, 1, 1, 0, 0, 2, 1, 2, 3, 1, 3, 1, 2, 2, 1, 1, 1, 2, 0, 0, 2, 1, 0, 2, 2, 2, 1, 0, 2, 0, 0, 3, 3, 2, 2, 0, 1, 1, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 2, 3, 2, 1, 1, 2, 2, 3, 1, 1, 3, 2, 0, 2, 2, 1, 0, 1, 2, 2, 2, 3, 2, 2, 2, 3, 3, 3, 3, 3, 0, 0, 1, 3, 3, 2, 2, 2, 3, 3, 3, 2, 3, 0, 1, 1, 2, 1, 1, 2

COMMENTS

1

23

101

1121

32021

222330...

MATHEMATICA

t = Flatten[IntegerDigits[Range[1500], 4]]; t[[Table[n(n + 1)/2, {n, 105}]]]

CROSSREFS

Cf. A104606, A104607, A104609, A104610, A104611, A104612, A104613, A091425, A104614, A104615, A104616, A104617, A104618, A104619, A104620.