|
Search: id:A097576
|
|
| |
|
| 0, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 4, 3, 3, 3, 6, 3, 3, 3, 6, 4, 4, 4, 8, 5, 5, 5, 10, 5, 5, 5, 10, 6, 6, 6, 12, 6, 6, 6, 12, 6, 6, 6, 12, 8, 8, 8, 16, 8, 8, 8, 16, 8, 8, 8, 16, 10, 10, 10, 20, 9, 9, 9, 18, 10, 10, 10, 20, 11, 11, 11, 22, 11, 11, 11, 22, 12, 12, 12, 24, 12, 12, 12, 24, 12, 12, 12
(list; graph; listen)
|
|
|
OFFSET
|
0,8
|
|
|
FORMULA
|
A[n_]:=A[n]=A[n-A[n-1][[1, 1]]]+A[n-A[n-2][[1, 2]]]; A[0]:={{0, 1}, {1, 1}}; A[1]:={{1, 1}, {1, 2}};
|
|
MATHEMATICA
|
Clear[A, M] (* Hofstatder 2 X 2 Matrix sequence*) (* by Roger L. Bagula *) digits=100 A[n_]:=A[n]=A[n-A[n-1][[1, 1]]]+A[n-A[n-2][[1, 2]]]; A[0]:={{0, 1}, {1, 1}}; A[1]:={{1, 1}, {1, 2}}; (* flattened sequence of 2 X 2 matrices made with a Hofstadter recurrence*) b=Flatten[Table[A[n], {n, 0, digits}]] ListPlot[b, PlotJoined->True]
|
|
CROSSREFS
|
Cf. A005185.
Sequence in context: A023153 A023159 A098983 this_sequence A029250 A110884 A125913
Adjacent sequences: A097573 A097574 A097575 this_sequence A097577 A097578 A097579
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Aug 28 2004
|
|
|
Search completed in 0.002 seconds
|
