A098376 Right edge T(n,0) of the triangle A097883.

1, 2, 5, 6, 13, 14, 27, 26, 43, 36, 65, 62, 87, 80, 117, 110, 147, 146, 185, 168, 221, 210, 271, 258, 323, 308, 369, 368, 427, 414, 491, 476, 555, 544, 621, 610, 687, 682, 765, 764, 853, 828, 937, 918, 1027, 1010, 1113, 1102, 1209, 1198, 1305, 1304, 1415, 1398

Offset

0,2

Links

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

Formula

a(n) = A097883(t+1) where t is a triangular number.

Mathematica

a[0, 0] = 1; a[m_, n_] := a[m, n] = Block[{p = Sort[ Flatten[ Join[ Table[ a[i, j], {i, 0, m - 1}, {j, 0, i}], Table[ a[i, j], {i, m, m}, {j, 0, n - 1}]] ]]}, k = Complement[ Range[ p[[ -1]] + 1], p][[1]]; While[ Position[p, k] != {} || If[n == 0, GCD[k, a[m - 1, 0]] != 1, If[n == m, GCD[k, a[m - 1, m - 1]] != 1, GCD[k, a[m - 1, n]] != 1 || GCD[k, a[m - 1, n - 1]] != 1]], k++ ]; k]; Table[ a[m, 0], {m, 0, 53}]

Crossrefs

Cf. A097883, A098377.

Sequence in context: A070911 A276082 A113240 * A342569 A028259 A327472

Adjacent sequences: A098373 A098374 A098375 * A098377 A098378 A098379

Keyword

nonn

Author

Leroy Quet and Robert G. Wilson v, Sep 04 2004

Status

approved