A104612 Write the natural numbers in base 8 in a triangle with k digits in the k-th row, as shown below. Sequence gives the leading diagonal.

1, 3, 6, 1, 3, 6, 2, 2, 2, 7, 4, 5, 1, 0, 1, 0, 1, 1, 2, 1, 1, 5, 1, 1, 0, 2, 2, 3, 2, 2, 7, 3, 3, 3, 3, 3, 0, 4, 4, 5, 4, 5, 2, 5, 5, 0, 6, 6, 6, 7, 7, 4, 7, 0, 1, 1, 0, 5, 1, 3, 2, 1, 1, 1, 2, 2, 1, 3, 5, 3, 1, 1, 4, 7, 3, 5, 0, 6, 1, 1, 7, 4, 7, 1, 3, 0, 2, 2, 1, 1, 5, 7, 6, 3, 2, 2, 4, 6, 4, 0, 1, 6, 2, 2, 0

Offset: 1

Author

Robert G. Wilson v, Mar 16 2005

Keywords

• base
• nonn

Comments

1

23

456

7101

11213

141516...

Crossrefs

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

Programs

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 *)