|
| |
|
|
A132150
|
|
Semi-chaotic Jazz function ( Oscar Peterson robot function) on 13 tones: a[n]->a[n-1]+/- 3 0r 4 without 5 and 10 modulo 13.
|
|
1
| |
|
|
4, 11, 1, 7, 3, 3, 11, 4, 7, 1, 9, 9, 4, 11, 1, 7, 2, 3, 11, 4, 7, 13, 8, 9, 4, 9, 13, 6, 1, 2, 9, 3, 6, 12, 7, 8, 3, 9, 12, 4, 13, 1, 9, 2, 4, 11, 6, 7, 2, 8, 11, 4, 12, 13, 8, 1, 4, 9, 4, 6, 1, 7, 9, 3, 11, 12, 7, 13, 3, 9, 4, 4, 13, 6, 9, 2, 9, 11, 6, 12, 2, 8, 3, 4, 12, 4, 8, 1, 9, 9, 4, 11, 1, 7, 2
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| Mixing the audio from this function with Oscar Peterson recordings doesn't produce any major length discords: sounds like a Jazz session.
|
|
|
FORMULA
| Plus or minus 3 or 4: f(x)= x + 3*(2*Mod[x, 3] - 1) + Mod[x, 2]; Modulo 13: g(x)= If[f(x) > 12, 1 + Mod[f(x), 13], f(x)]; Modulo 5 equals zero removed: h(x) = If[Mod[g(x), 5] == 0, g(x) - 1, g(x)] a(n) = h(n)
|
|
|
MATHEMATICA
| f[x_] := x + 3*(2*Mod[x, 3] - 1) + Mod[x, 2]; g[x_] := If[f[x] > 12, 1 + Mod[f[x], 13], f[x]]; h[x_] := If[Mod[g[x], 5] == 0, g[x] - 1, g[x]]; a = Table[h[x], {x, 1, 256}]
|
|
|
CROSSREFS
| Sequence in context: A152396 A048873 A091390 * A091389 A175668 A113249
Adjacent sequences: A132147 A132148 A132149 * A132151 A132152 A132153
|
|
|
KEYWORD
| nonn,uned
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Nov 01 2007
|
| |
|
|
