OFFSET
1,2
COMMENTS
1
23
456
7101
11213
141516...
MATHEMATICA
t = Flatten[ IntegerDigits[ Range[1750], 8]]; t[[Table[n(n + 1)/2, {n, 105}]]]
TakeList[Flatten[IntegerDigits[Range[3000], 8]], Range[150]][[All, -1]] (* Harvey P. Dale, Nov 06 2022 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Robert G. Wilson v, Mar 16 2005
STATUS
approved