08-12-2022, 10:19 AM
Takes a real integer from the stack & returns A3602(N) to stack.
Nth member of Kimberling’s paraphrases.
Preserves stack.
https://oeis.org/A003602
Improvements to programme welcome.
Nth member of Kimberling’s paraphrases.
Preserves stack.
https://oeis.org/A003602
Improvements to programme welcome.
Code:
1. LBL I
2. CF 1
3. STO N
4. CLx
5. N/2
6. STO N
7. FP
8. x=0?
9. SF 1
10. RCL+ N
11. FS? 1
12. GTO I
13. RTN
I: LN = 42