login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A098380 Minimum entry in the n-th row of the triangle A097883. 1

%I

%S 1,2,4,6,10,14,18,24,32,36,42,60,66,80,96,110,126,144,160,168,196,210,

%T 238,258,284,308,334,360,388,414,442,476,502,540,568,610,638,682,710,

%U 756,786,828,870,918,952,1010,1038,1102,1140,1198,1236,1290,1332,1398

%N Minimum entry in the n-th row of the triangle A097883.

%C All entries are even except for 1.

%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[ Min[ Table[ a[m, n], {n, 0, m}]], {m, 0, 50}]

%Y Cf. A097883, A098379.

%K nonn

%O 0,2

%A _Leroy Quet_ and _Robert G. Wilson v_, Sep 04 2004

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified September 29 04:22 EDT 2020. Contains 337420 sequences. (Running on oeis4.)