%I #5 Feb 05 2014 20:18:04
%S 1,5,16,34,71,114,184,256,381,507,678,889,1094,1406,1673,2075,2460,
%T 2940,3453,4015,4658,5357,6066,6974,7807,8845,9814,11038,12193,13596,
%U 14920,16522,17815,19869,21282,23556,25159,27671,29480,32236,34301,37275
%N Row sums of the triangle A097883.
%t 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}]
%Y Cf. A097883.
%K nonn
%O 1,2
%A _Leroy Quet_ and _Robert G. Wilson v_, Sep 06 2004
|