|
Search: id:A098379
|
|
| |
|
| 1, 3, 7, 11, 19, 25, 37, 41, 53, 61, 77, 89, 101, 121, 131, 149, 167, 183, 205, 225, 247, 269, 293, 319, 349, 373, 401, 425, 457, 487, 527, 559, 583, 629, 655, 701, 731, 779, 807, 851, 887, 935, 971, 1025, 1061, 1117, 1155, 1213, 1253, 1315, 1357, 1419, 1461
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
COMMENT
|
All entries are odd.
|
|
LINKS
|
Leroy Quet, Home Page (listed in lieu of email address)
|
|
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[ Max[ Table[ a[m, n], {n, 0, m}]], {m, 0, 52}]
|
|
CROSSREFS
|
Cf. A097883, A098380.
Sequence in context: A135932 A105876 A141101 this_sequence A049754 A126254 A092102
Adjacent sequences: A098376 A098377 A098378 this_sequence A098380 A098381 A098382
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Leroy Quet and Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 04 2004
|
|
|
Search completed in 0.002 seconds
|
