0,2

One can see that (least unused number in rows 1 through n of A035312) ~ A035311(n) ~ 2n. (Asymptotic equality, and the first quantity does not exceed either of the two others.) - M. F. Hasler, May 09 2013

Reinhard Zumkeller, Table of n, a(n) for n = 0..1000

A. C. Zorach, Additive triangle

(* Assuming n <= t(n, 1) <= 3n *) uniqueQ[t1_, n_] := (t[n, 1] = t1; Do[t[n, k] = t[n, k-1] + t[n-1, k-1], {k, 2, n}]; n*(n+1)/2 == Length[ Union[ Flatten[ Table[ t[m, k], {m, 1, n}, {k, 1, m}]]]]); t[n_ , 1] := t[n, 1] = Select[ Complement[ Range[n, 3 n], Flatten[ Table[t[m, k], {m, 1, n - 1}, {k, 1, m}]]], uniqueQ[#, n] & , 1][[1]]; Table[t[n, 1], {n, 1, 66}](* Jean-François Alcover, Dec 02 2011 *)

(Haskell) -- See link for Haskell program.

Cf. A035312, A035313, A189713, A035358.

Sequence in context: A011178 A136790 A073158 * A182310 A244591 A388434

Adjacent sequences: A035308 A035309 A035310 * A035312 A035313 A035314

nonn,easy,nice

More terms from Christian G. Bower

approved