Find the Kimberling Sequence

Question

How to find the Kimberling Sequence by using Mathematica?

each row is obtained from the previous by boxing (and expelling) the main diagonal element, and then reading the first number after the box, the first before the box, the second after the box, the second before the box and so on until all the initial numbers are read off..

Kimberling Sequence is a diagonal elements form the sequence $=1,3,5,4,10...$

I have no idea how to define this sequence in Mathematica.

Thank you in advance to any one who may be able to give me some ideas

(There is a unsolved problem about this sequence, $ \textbf{ "Is every positive integer a term of this sequence?"}$ )

There's code here; but I suspect there are more efficient ways to do this. — J. M.'s missing motivation, May 31 '16 at 14:07

score 2 · Answer 1 · edited May 31 '16 at 14:36

2

You can find the sequence plus a Mathematica program to generate it at this link. Best, Harvey

edited May 31 '16 at 14:36

J. M.'s missing motivation

124,525
11
401
574

answered May 31 '16 at 14:20

harveydale

84
2

1

URL shorteners aren't really needed here; you can just paste the link (in this case, OEIS) directly. – J. M.'s missing motivation May 31 '16 at 14:37

score 2 · Answer 2 · edited Apr 13 '17 at 12:56

2

On Programming Puzzles & Code Golf nice Q&A The Kimberling Sequence by DavidC

edited Apr 13 '17 at 12:56

Community

1

answered May 31 '16 at 14:40

Find the Kimberling Sequence

2 Answers2