+- HP Forums (https://www.hpmuseum.org/forum)
+-- Forum: HP Software Libraries (/forum-10.html)
+--- Forum: General Software Library (/forum-13.html)
+--- Thread: (35S) OEIS A027868 & A228297 Generalized meta-Fibonacci sequence parameters s=0 & k=5 (/thread-9109.html)
(35S) OEIS A027868 & A228297 Generalized meta-Fibonacci sequence parameters s=0 & k=5 - Gerald H - 09-19-2017 10:50 AM
For natural number input N the programme C returns the Nth element of the OEIS A027868 sequence.
For info on the sequence see
https://oeis.org/A027868
Code:
1 LBL C
2 0
3 x<>y
4 5
5 INT/
6 REGY+REGX
7 x<>y
8 x≠0?
9 GTO C004
10 +
11 RTNFor natural number input N the programme B returns the Nth element of the OEIS A228297 generalized meta-Fibonacci sequence with parameters s=0 & k=5 & uses programme C as a sub-programme.
For info on the sequence see
https://oeis.org/A228297
Code:
1 LBL B
2 STO N
3 ENTER
4 ENTER
5 5
6 INT/
7 -
8 STO M
9 RCL M
10 XEQ C001
11 RCL+ M
12 RCL N
13 x≤y?
14 GTO B018
15 1
16 STO+ M
17 GTO B009
18 RCL M
19 RTN