OFFSET
1,9
COMMENTS
1
21
011
1220
21221
001011...
MATHEMATICA
t = Flatten[IntegerDigits[Range[1000], 3]]; t[[Table[n(n + 1)/2, {n, 105}]]]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Robert G. Wilson v, Mar 16 2005
STATUS
approved