AUTHOR
_Leroy Quet _ and Robert G. Wilson v, Sep 06 2004
The OEIS is supported by the many generous donors to the OEIS Foundation.
Revision History for A098404
(Bold, blue-underlined text is an addition; faded, red-underlined text is aShowing all changes.
AUTHOR
Leroy Quet and _Robert G. Wilson v (rgwv(AT)rgwv.com), _, Sep 06 2004
LINKS
Leroy Quet, <a href="http://www.prism-of-spirals.net/">Home Page</a> (listed in lieu of email address)
KEYWORD
nonn,new
nonn
NAME
Row sum sums of the triangle A097883.
LINKS
Leroy Quet, <a href="http://www.prism-of-spirals.net/">Home Page</a> (listed in lieu of email address)
KEYWORD
nonn,new
nonn
AUTHOR
Leroy Quet (qq-quet(AT)mindspring.com) and Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 06 2004
NAME
Row sum of the triangle A097883.
DATA
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
OFFSET
1,2
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.
KEYWORD
nonn
AUTHOR
Leroy Quet (qq-quet(AT)mindspring.com) and Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 06 2004
STATUS
approved