+- HP Forums (https://www.hpmuseum.org/forum)
+-- Forum: HP Software Libraries (/forum-10.html)
+--- Forum: General Software Library (/forum-13.html)
+--- Thread: (40gs) & 39gs: PENTANACCI SEQUENCE INSTALLER (OEIS A124313) (/thread-3580.html)
(40gs) & 39gs: PENTANACCI SEQUENCE INSTALLER (OEIS A124313) - Gerald H - 04-07-2015 04:04 PM
Here a programme for the 40gs & 39gs only to install symbolics in the Sequence Aplet & produce the Pentanacci series in U1.
Here more info on the Pentanacci series:
http://oeis.org/A124313
PENTANACCISEQ
MAKEMAT(I==1 OR I-1==J,5,5)►M1:
[[1,0,0,0,0]]►M2:
[0,0,0,1,0]►M3:
RUN SEQSET:
RECURSE(U,ABS((M2*(M1^(N-4)))*M3),1,0)►U1(N):
CHECK 1:
The programme SEQSET cleans the Sequence Aplet & sets flags as required.
SEQSET
SELECT Sequence:
UNCHECK 0:
0►NumFont:
0►Simult:
2►Angle:
1►InvCross:
1►NumStep:
1►Format:
1►NumCol:
1►NumStart:
6►NumRow:
RECURSE(U,0,0,0)►U1(N):
Ans►U2(N):
Ans►U3(N):
Ans►U4(N):
Ans►U5(N):
Ans►U6(N):
Ans►U7(N):
Ans►U8(N):
Ans►U9(N):
Ans►U0(N):