A193592 Triangle read by rows having n-th row 1, n, n-1, n-2,..., 2, 1 for n>=0.

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

Offset: 0

Author

Clark Kimberling, Jul 31 2011

Keywords

• nonn
• tabl

Comments

The triangle with its first column removed is A004736. - Hartmut F. W. Hoft, Jun 05 2017

Examples

			Triangle begins:
  1
  1   1
  1   2   1
  1   3   2   1
  1   4   3   2   1
		

Crossrefs

Cf. A193593, A004736.

Programs

Mathematica

a193592[n_] := Map[Prepend[Range[#, 1, -1], 1]&, Range[0, n]]
Flatten[a193592[12]] (* data *)
TableForm[a193592[4]] (* triangle *) (* Hartmut F. W. Hoft, Jun 05 2017 *)

Extensions

Corrected and added more terms by Hartmut F. W. Hoft, Jun 05 2017