How to find the Kimberling Sequence by using Mathematica?

enter image description here

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?"}$ )

  • 1
    $\begingroup$ There's code here; but I suspect there are more efficient ways to do this. $\endgroup$ – J. M.'s discontentment May 31 '16 at 14:07

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

| improve this answer | |
  • 1
    $\begingroup$ URL shorteners aren't really needed here; you can just paste the link (in this case, OEIS) directly. $\endgroup$ – J. M.'s discontentment May 31 '16 at 14:37

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.