OFFSET
1,2
COMMENTS
See the order of chaotic subsequences in scatterplot link.
LINKS
Altug Alkan, Table of n, a(n) for n = 1..10000
Altug Alkan, Alternative Scatterplot of A283673
EXAMPLE
MATHEMATICA
q[1] = q[2] = 1; q[n_] := q[n] = q[n - q[n - 1]] + q[n - q[n - 2]]; Table[LCM[q[n - q[n + 1] + 2], q[n - q[n] + 2]], {n, 71}] (* Indranil Ghosh, Mar 14 2017 *)
PROG
(PARI) a=vector(1001); a[1]=a[2]=1; for(n=3, #a, a[n]=a[n-a[n-1]]+a[n-a[n-2]]); va = vector(1000, n, lcm(a[n+2-a[n+1]], a[n+2-a[n]]))
CROSSREFS
KEYWORD
nonn,look
AUTHOR
Altug Alkan, Mar 14 2017
STATUS
approved