1
$\begingroup$

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

Improve this question
$\endgroup$
1
  • 1
    $\begingroup$ There's code here; but I suspect there are more efficient ways to do this. $\endgroup$
    – J. M.'s missing motivation ♦
    Commented May 31, 2016 at 14:07

2 Answers 2

Reset to default
2
$\begingroup$

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

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

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

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