|
|
A098404
|
|
Row sums of the triangle A097883.
|
|
0
|
|
|
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
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|