OFFSET
1,8
COMMENTS
EXAMPLE
The array consists of seven sequences:
1..3..6..8..11..13..15..18..20..23..25..27..30..32..35..37..
1..3..5..6..8...9...11..12..14..16..17..19..20..22..24..25..
1..3..5..6..9...10..12..14..16..18..20..21..24..25..28..29..
1..3..5..6..9...10..11..14..15..17..19..20..22..24..26..28..
1..3..5..6..9...10..11..14..16..17..19..21..23..24..27..28..
1..3..5..6..9...10..11..14..16..17..19..20..23..24..26..28..
1..3..5..6..9...10..11..14..16..17..19..20..23..24..27..28..
MATHEMATICA
r = 2^(1/2);
seqA = Table[Floor[r*n], {n, 1, 120}]; (* A000201 *)
seqB = Table[n, {n, 1, 120}]jointRank[{seqA_, seqB_}] := {Flatten@Position[#1, {_, 1}],
Flatten@Position[#1, {_, 2}]} & [Sort@Flatten[{{#1, 1} & /@ seqA, {#1, 2} & /@seqB}, 1]]; (#1[[1]] &) /@
FixedPointList[jointRank[{seqA, #1[[1]]}] &, jointRank[{seqA, seqB}], 6];
TableForm[%]
(* by Peter J. C. Moses, Mar 10 2011 *)
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Clark Kimberling, Mar 10 2011
STATUS
approved