|
%I #7 Dec 19 2022 04:33:04
%S 1,1,1,2,1,1,3,3,1,1,5,5,5,1,1,8,9,10,5,1,1,13,17,17,9,6,1,1,21,31,31,
%T 17,11,7,1,1,34,57,59,33,21,13,8,1,1,55,105,107,65,41,25,15,9,1,1,89,
%U 193,189,129,81,49,29,17,10,1,1
%N A nonsense sequence.
%D Blackmore, D. and Kappraff, J. "Phyllotaxis and Toral Dynamical Systems." ZAMM (1995).
%e {1},
%e {1, 1},
%e {2, 1, 1},
%e {3, 3, 1, 1},
%e {5, 5, 5, 1, 1},
%e {8, 9, 10, 5, 1, 1},
%e {13, 17, 17, 9, 6, 1, 1},
%e {21, 31, 31, 17, 11, 7, 1, 1},
%e {34, 57, 59, 33, 21, 13, 8, 1, 1},
%e {55, 105, 107, 65, 41, 25, 15, 9, 1, 1},
%e {89, 193, 189, 129, 81, 49, 29, 17, 10, 1, 1}
%t a[0] := 1; a[1] := 1;
%t a[n_] := a[n] = a[n - 1] + a[n - 2];
%t w[1] = Table[a[n], {n, 0, 10}];
%t b[0] = 1; b[1] = 1; b[2] = 1;
%t b[n_] := b[n] = b[n - 1] + b[n - 2] + b[n - 3];
%t w[2] = Table[b[n], {n, 0, 10}];
%t c[0] = 1; c[1] = 1; c[2] = 1; c[3] = 1;
%t c[n_] := c[n] = c[n - 1] + a[n - 2] + c[n - 3] + c[n - 4];
%t w[3] = Table[c[n], {n, 0, 10}];
%t d[0] = 1; d[1] = 1; d[2] = 1; d[3] = 1; d[4] = 1;
%t d[n_] := d[n] = d[n - 1] + d[n - 2] + d[n - 3] + d[n - 4] + d[n - 5];
%t w[4] = Table[d[n], {n, 0, 10}];
%t e[0] = 1; e[1] = 1; e[2] = 1; e[3] = 1; e[4] = 1; e[5] = 1;
%t e[n_] := e[n] = e[n - 1] + e[n - 2] + e[n - 3] + e[n - 4] + e[n - 5] + e[n - 6];
%t w[5] = Table[e[n], {n, 0, 10}];
%t f[0] = 1; f[1] = 1; f[2] = 1; f[3] = 1; f[4] = 1; f[5] = 1; f[6] = 1;
%t f[n_] := f[n] = f[n - 1] + f[n - 2] + f[n - 3] + f[n - 4] + f[n - 5] + f[n - 6] + f[n - 7];
%t w[6] = Table[f[n], {n, 0, 10}];
%t g[0] = 1; g[1] = 1; g[2] = 1; g[3] = 1; g[4] = 1; g[5] = 1; g[6] = 1; g[ 7] = 1;
%t g[n_] := g[n] = g[n - 1] + g[n - 2] + g[n - 3] + g[n - 4] + g[n - 5] + g[n - 6] + g[n - 7] + g[n - 8];
%t w[7] = Table[g[n], {n, 0, 10}];
%t h[0] = 1; h[ 1] = 1; h[2] = 1; h[3] = 1; h[4] = 1; h[5] = 1; h[6] = 1; h[7] = 1; h[8] = 1;
%t h[n_] := h[n] = h[n - 1] + h[n - 2] + h[n - 3] + h[n - 4] + h[n - 5] + h[n - 6] + h[n - 7] + h[n - 8] + h[n - 9];
%t w[8] = Table[h[n], {n, 0, 10}];
%t i[0] = 1; i[1] = 1;
%t i[2] = 1; i[3] =
%t 1; i[4] = 1; i[5] = 1; i[6] = 1; i[7] = 1; i[8] = 1; i[9] = 1;
%t i[n_] := i[n] = i[n - 1] + i[n - 2] + i[n - 3] + i[n - 4] +
%t i[n - 5] + i[n - 6] + i[n - 7] + i[n - 8] + i[n - 9] + i[n - 10];
%t w[9] = Table[i[n], {n, 0, 10}];
%t j[0] = 1; j[1] = 1; j[2] = 1; j[3] = 1; j[4] = 1; j[5] = 1; j[6] = 1; j[ 7] = 1; j[8] = 1; j[9] = 1; j[10] = 1;
%t j[n_] := j[n] = j[n - 1] + j[n - 2] + j[n - 3] + j[n - 4] +
%t j[n - 5] + j[n - 6] + j[n - 7] + j[n - 8] + j[n - 9] + j[n - 10] + j[n - 11];
%t w[10] = Table[j[n], {n, 0, 10}];
%t k[0] = 1; k[1] = 1; k[2] = 1; k[3] = 1; k[4] = 1; k[5] = 1; k[6] = 1;
%t k[7] = 1; k[8] = 1; k[9] = 1; k[10] = 1; k[11] = 1;
%t k[n_] := k[n] = k[n - 1] + k[n - 2] + k[n - 3] + k[n - 4] + k[n - 5] + k[n - 6] + k[n - 7] + k[n - 8] + k[n - 9] + k[n - 10] + k[n - 11] + k[n - 12];
%t w[11] = Table[k[n], {n, 0, 10}];
%t Table[Table[w[m][[n]], {m, 1, n}], {n, 1, 11}]
%t Flatten[%]
%K nonn,uned,tabl,less
%O 1,4
%A _Roger L. Bagula_ and _Gary W. Adamson_, May 04 2008
|
