OFFSET
1,2
LINKS
EXAMPLE
Rows: 1; 3,2; 5,6,4; 9,8,10,7; ...
MATHEMATICA
nn = 12; t = Table[Range[Binomial[n, 2] + 1, Binomial[n + 1, 2]], {n, nn}]; Reverse /@ Table[t[[n, If[OddQ@ k, Ceiling[k/2], -k/2] ]], {n, nn}, {k, n}] // Flatten (* Michael De Vlieger, Jul 02 2016 *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Clark Kimberling, Jul 28, 2000
STATUS
approved