|
|
A365819
|
|
a(n) = a(n-1) - 1 + floor(median(a) - mean(a)) where a(0) = 0, a(1) = 1, and median(a) and mean(a) are respectively the median and mean of all previous terms.
|
|
3
|
|
|
0, 1, 0, -2, -3, -4, -5, -7, -8, -9, -10, -11, -12, -13, -15, -17, -19, -21, -22, -23, -24, -25, -26, -27, -27, -27, -27, -27, -28, -29, -31, -33, -36, -39, -43, -47, -51, -54, -57, -59, -61, -63, -64, -65, -65, -65, -65, -64, -63, -61, -58, -55, -51, -47, -43, -39, -35, -31, -28, -25, -22, -19
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,4
|
|
COMMENTS
|
The median of an even number of terms is taken as the mean of its middle two values, (x+y)/2.
The sequence seems to present a chaotic pattern. What is its asymptotic behavior?
|
|
LINKS
|
Thomas Scheuerle, Plot n = 0..200000, blue: a(n)/10, red: mean(a(0)..a(n)), orange: 10*(median(a(0)..a(n))-mean(a(0)..a(n))). We observe new emergent chaos after periods of apparent calming.
|
|
MATHEMATICA
|
a = {0, 1};
Do[AppendTo[a, Last[a] - 1 + Floor[Median[a] - Mean[a]]], {j, 1, 100}]
a[[1 ;; 100]]
|
|
PROG
|
(MATLAB)
a = [0 1];
for n = 3:max_n
a(n) = a(n-1) - 1 + floor(median(a) - mean(a));
end
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|