OFFSET
1,2
MATHEMATICA
m = x /. Solve[x^3 - x - 1 == 0, x][[1]]
Take[Transpose[Sort[Flatten[Table[{i + j*m, i}, {i, 25}, {j, 17}], 1], #1[[1]] < #2[[1]] &]][[2]], 95]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Nov 01 2009
STATUS
approved