(35S) OEIS A027868 & A228297 Generalized meta-Fibonacci sequence parameters s=0 & k=5

[Gerald H]

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    RTN

For 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