(40gs) & 39gs: PENTANACCI SEQUENCE INSTALLER (OEIS A124313)

[Gerald H]

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):