|
Search: id:A094900
|
|
|
| A094900 |
|
An integer differential sequence of the primes. |
|
+0
2
|
|
| 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; listen)
|
|
|
OFFSET
|
3,3
|
|
|
COMMENT
|
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 this_sequence A164808 A153285 A083557
Adjacent sequences: A094897 A094898 A094899 this_sequence A094901 A094902 A094903
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jun 14 2004
|
|
|
Search completed in 0.002 seconds
|
