A098404 - OEIS

A098404

Row sums of the triangle A097883.

1, 5, 16, 34, 71, 114, 184, 256, 381, 507, 678, 889, 1094, 1406, 1673, 2075, 2460, 2940, 3453, 4015, 4658, 5357, 6066, 6974, 7807, 8845, 9814, 11038, 12193, 13596, 14920, 16522, 17815, 19869, 21282, 23556, 25159, 27671, 29480, 32236, 34301, 37275

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

LINKS

Table of n, a(n) for n=1..42.

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[ Sum[ a[m, n], {n, 0, m}], {m, 0, 41}]

CROSSREFS

Cf. A097883.

Sequence in context: A227720 A096941 A246697 * A190970 A077415 A234362

Adjacent sequences: A098401 A098402 A098403 * A098405 A098406 A098407

KEYWORD

nonn

AUTHOR

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

STATUS

approved