OFFSET
1,2
COMMENTS
1
23
456
789A
BCDEF
101112...
MATHEMATICA
t = Flatten[ IntegerDigits[ Range[1900], 16]]; t[[Table[n(n + 1)/2, {n, 100}]]]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Robert G. Wilson v, Mar 16 2005
STATUS
approved