HP Forums
(42S) OEIS A228297: Generalized meta-Fibonacci Sequence & Others of that Family - Printable Version

+- HP Forums (https://www.hpmuseum.org/forum)
+-- Forum: HP Software Libraries (/forum-10.html)
+--- Forum: General Software Library (/forum-13.html)
+--- Thread: (42S) OEIS A228297: Generalized meta-Fibonacci Sequence & Others of that Family (/thread-9120.html)

(42S) OEIS A228297: Generalized meta-Fibonacci Sequence & Others of that Family - Gerald H - 09-20-2017 05:35 AM

For natural number input N the programme A228297 returns the Nth element of the series

https://oeis.org/A228297

The value 5 should be stored in the variable "5".

The programme calls the two sub-programmes below.

Code:
0.    { 45-Byte Prgm }
1.    LBL “A228297”
2.    ENTER
3.    ENTER
4.    XEQ "IQT5"
5.    - 
6.    LBL 00
7.    ENTER
8.    ENTER
9.    XEQ "A27868"
10.    +
11.    RCL- ST Z
12.    X≥0?
13.    GTO 01
14.    SIGN
15.    -
16.    GTO 00
17.    LBL 01
18.    R↓
19.    END

For natural number input N the programme A27868 returns the Nth element of the series

https://oeis.org/A027868

Code:
0.    { 29-Byte Prgm }
1.    LBL “A27868”
2.    X<> 00
3.    CLX
4.    X<> 00
5.    LBL 00
6.    XEQ "IQT5"
7.    STO+ 00
8.    X≠0
9.    GTO 00
10.    X<> 00
11.    END

For natural number input N the programme IQT5 returns the integer quotient on division by 5.

Code:
0.    { 27-Byte Prgm }
1.    LBL “IQT5”
2.    R↑
3.    STO 01
4.    R↓
5.    STO 02
6.    RCL "5"
7.    MOD
8.    +/-
9.    RCL+ 02
10.    RCL/ "5"
11.    R↑
12.    X<> 01
13.    R↓
14.    END

Storing values other than 5 in "5" produces sequences of the same family, eg

value 2 produces A046699
value 3 produces A120503
value 4 produces A120507
value 7 produces A022898.