|
%I #5 Feb 05 2014 20:18:04
%S 1,2,5,6,13,14,27,26,43,36,65,62,87,80,117,110,147,146,185,168,221,
%T 210,271,258,323,308,369,368,427,414,491,476,555,544,621,610,687,682,
%U 765,764,853,828,937,918,1027,1010,1113,1102,1209,1198,1305,1304,1415,1398
%N Right edge T(n,0) of the triangle A097883.
%F a(n) = A097883(t+1) where t is a triangular number.
%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[ a[m, 0], {m, 0, 53}]
%Y Cf. A097883, A098377.
%K nonn
%O 0,2
%A _Leroy Quet_ and _Robert G. Wilson v_, Sep 04 2004
|
