The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A098376 Right edge T(n,0) of the triangle A097883. 1
 1, 2, 5, 6, 13, 14, 27, 26, 43, 36, 65, 62, 87, 80, 117, 110, 147, 146, 185, 168, 221, 210, 271, 258, 323, 308, 369, 368, 427, 414, 491, 476, 555, 544, 621, 610, 687, 682, 765, 764, 853, 828, 937, 918, 1027, 1010, 1113, 1102, 1209, 1198, 1305, 1304, 1415, 1398 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,2 LINKS FORMULA a(n) = A097883(t+1) where t is a triangular number. 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[ a[m, 0], {m, 0, 53}] CROSSREFS Cf. A097883, A098377. Sequence in context: A070911 A276082 A113240 * A342569 A028259 A327472 Adjacent sequences: A098373 A098374 A098375 * A098377 A098378 A098379 KEYWORD nonn AUTHOR Leroy Quet and Robert G. Wilson v, Sep 04 2004 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified March 20 05:30 EDT 2023. Contains 361358 sequences. (Running on oeis4.)