login
A087826
a(n) = a(n-a(n-1)) + a(a(n-a(n-2))).
0
1, 1, 2, 2, 3, 3, 3, 5, 4, 5, 5, 5, 8, 5, 7, 7, 8, 8, 8, 8, 13, 7, 10, 10, 10, 10, 13, 12, 11, 13, 13, 13, 13, 21, 8, 15, 12, 15, 18, 12, 16, 18, 18, 15, 21, 18, 16, 21, 20, 18, 21, 26, 21, 18, 25, 20, 20, 22, 20, 19, 25, 20, 25, 25, 17, 27, 20, 28, 24, 26, 28, 23, 31, 31, 22, 31, 28
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
Cf. A081831.
Sequence in context: A318082 A318350 A127332 * A131624 A165077 A165079
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Oct 06 2003
STATUS
approved