OFFSET
1,2
COMMENTS
The rows satisfy the recurrence r(n)=r(n-1)+r(n-2)+1.
Every positive integer occurs exactly once, so that as a sequence, A175004 is a permutation of the natural numbers. As an array, it is an interspersion, hence also a dispersion. Specifically, it is the dispersion of the sequence floor(n*x+2/x), where x=(golden ratio). For a discussion of dispersions, see A191426.
FORMULA
EXAMPLE
MATHEMATICA
(* program generates the dispersion array T of the complement of increasing sequence f[n] *)
r = 40; r1 = 12; (* r=# rows of T, r1=# rows to show *)
c = 40; c1 = 12; (* c= # cols of T, c1=# cols to show *)
x = GoldenRatio; f[n_] := Floor[n*x + 2/x]
(* f(n) is complement of column 1 *)
mex[list_] := NestWhile[#1 + 1 &, 1, Union[list][[#1]] <= #1 &, 1, Length[Union[list]]]
rows = {NestList[f, 1, c]};
Do[rows = Append[rows, NestList[f, mex[Flatten[rows]], r]], {r}];
t[i_, j_] := rows[[i, j]];
TableForm[Table[t[i, j], {i, 1, 10}, {j, 1, 10}]]
(* A175004 *)
Flatten[Table[t[k, n - k + 1], {n, 1, c1}, {k, 1, n}]] (* array as a sequence *)
(* Program by Peter J. C. Moses, Jun 01 2011, added here Jun 03 2011 by Clark Kimberling *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Clark Kimberling, Apr 03 2010
STATUS
approved