A047925 3rd column of array in A038150.

8, 16, 29, 37, 50, 63, 71, 84, 92, 105, 118, 126, 139, 152, 160, 173, 181, 194, 207, 215, 228, 236, 249, 262, 270, 283, 296, 304, 317, 325, 338, 351, 359, 372, 385, 393, 406, 414, 427, 440, 448, 461, 469, 482, 495, 503, 516, 529, 537, 550, 558, 571, 584, 592

Offset

0,1

Links

Table of n, a(n) for n=0..53.

A. S. Fraenkel, Recent results and questions in combinatorial game complexities, Theoretical Computer Science, vol. 249, no. 2 (2000), 265-288.

A. S. Fraenkel, Arrays, numeration systems and Frankenstein games, Theoret. Comput. Sci. 282 (2002), 271-284; preprint.

Mathematica

max = 53; Clear[t]; t[0, 0] = 1; t[n_, 1] := t[n, 1] = 2*t[n, 0] + n + 1; t[n_, 0] := t[n, 0] = For[u = Table[t[m, k], {m, 0, n-1}, {k, 0, max-m}] // Flatten // Union; k = 1, k <= n*(n+1)/2 + 1, k++, If[u[[k]] != k, Return[k]]]; t[n_, k_] := t[n, k] = 3*t[n, k-1] - t[n, k-2]; a[n_] := t[n, 2]; Table[a[n], {n, 0, max}] (* Jean-François Alcover, Jul 16 2015 *)

Crossrefs

Cf. A038150.

Sequence in context: A299644 A204644 A191271 * A332918 A363280 A266086

Adjacent sequences: A047922 A047923 A047924 * A047926 A047927 A047928

Keyword

nonn,nice,easy

Author

N. J. A. Sloane

Extensions

More terms from Naohiro Nomoto, Jun 08 2001

Status

approved