A104617 - OEIS (original) (raw)

1, 3, 6, 10, 0, 3, 1, 1, 1, 6, 2, 3, 10, 3, 4, 5, 13, 8, 7, 8, 10, 7, 10, 11, 1, 0, 1, 0, 1, 1, 2, 1, 1, 5, 1, 1, 7, 1, 1, 10, 1, 1, 13, 2, 2, 2, 2, 2, 6, 2, 2, 9, 2, 2, 13, 3, 3, 3, 3, 3, 8, 3, 3, 12, 4, 4, 3, 4, 4, 8, 4, 4, 13, 5, 5, 4, 5, 5, 10, 5, 6, 2, 6, 6, 8, 6, 6, 0, 7, 7, 6, 7, 7, 13, 8, 8, 6, 8, 8

COMMENTS

1

23

456

789A

BCD10

111213...

MATHEMATICA

t = Flatten[ IntegerDigits[ Range[1900], 14]]; t[[Table[n(n + 1)/2, {n, 100}]]]

CROSSREFS

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