|
| |
|
|
A094900
|
|
An integer differential sequence of the primes.
|
|
1
| |
|
|
1, 0, 3, 11, 6, 17, 9, 7, 58, 20, 19, 41, 21, 15, 0, 118, 40, 34, 71, 48, 40, 27, 22, 97, 101, 51, 107, 54, 80, 318, 43, 274, 111, 596, 100, 0, 82, 55, 0, 358, 144, 764, 96, 197, 165, 0, 446, 227, 114, 77, 478, 192, 168, 0, 0, 538, 180, 139, 281, 226, 83, 768, 311, 156, 226
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 3,3
|
|
|
COMMENTS
| This sequence was designed to be a chaotic sequence that would be audible as integer frequencies: a=Table[Abs[Floor[Prime[n-1]*(Prime[n]-2*Prime[n-1]+Prime[n-2])/(Prime[n]-Prime[n-1])]],{n,3,203}] d=Dimensions[a][[1]] ft[n_]=a[[n]] CzP=22050; cjazz=Play[Sin[ft[Floor[t]]*Mod[t,1]],{t,1,d},SampleRate->CzP,PlayRange->All]
|
|
|
FORMULA
| a(n) = Abs[Floor[Prime[n-1]*(Prime[n]-2*Prime[n-1]+Prime[n-2])/(Prime[n]-Prime[n-1])]
|
|
|
MATHEMATICA
| a=Table[Abs[Floor[Prime[n-1]*(Prime[n]-2*Prime[n-1]+Prime[n-2])/(Prime[n]-Prime[n-1])]], {n, 3, 203}]
|
|
|
CROSSREFS
| Sequence in context: A130537 A114234 A120299 * A196171 A164808 A153285
Adjacent sequences: A094897 A094898 A094899 * A094901 A094902 A094903
|
|
|
KEYWORD
| nonn,uned
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jun 14 2004
|
| |
|
|
