OFFSET
1,3
PROG
(True BASIC)
70 DIM q0(0 to 4000)
80 LET q0(1)=1
90 LET q0(2)=1
91 FOR n = 3 to 4000
92 LET q0(n)=q0(n-q0(n-1))+q0(q0(n-q0(n-2)))
93 NEXT n
100 SET MODE "color"
110 SET WINDOW 0, 1024, 0, 750
302 PRINT" by Roger L. Bagula Oct 06 2003 "
381 open #1: name "CM1:Ht3_data", create newold, org text
390 FOR x=1 to 200
391 PRINT #1: q0(x); ", ";
392 NEXT x
393 close #1
460 END
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Oct 06 2003
STATUS
approved