cp's OEIS Frontend

A368420 a(n) = a(n-1) - floor(mean(a)) + ceiling(std(a)) where a(0) = 0, a(1) = 2, and mean(a) and std(a) are respectively the mean and the standard deviation of all previous terms.

%I A368420 #11 Jan 25 2024 07:31:29
%S A368420 0,2,3,4,4,4,4,3,2,2,2,2,2,2,2,2,2,2,2,2,1,1,1,1,1,1,1,1,1,2,3,3,3,3,
%T A368420 3,3,3,3,3,3,2,1,0,0,0,0,0,1,2,3,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,
%U A368420 4,4,4,4,4,4,4,4,4,4,4,4,4
%N A368420 a(n) = a(n-1) - floor(mean(a)) + ceiling(std(a)) where a(0) = 0, a(1) = 2, and mean(a) and std(a) are respectively the mean and the standard deviation of all previous terms.
%C A368420 The linear-log plot of the sequence shows a curious periodic pattern. Does this pattern continue indefinitely?
%H A368420 Andres Cicuttin, <a href="/A368420/a368420.png">Linear-log plot of first 2^17 terms</a>
%t A368420 a={0,2};
%t A368420 Do[AppendTo[a,Last[a]-Floor[Mean[a]]+Ceiling@StandardDeviation[a]],{j,1,100}]
%K A368420 nonn
%O A368420 0,2
%A A368420 _Andres Cicuttin_, Dec 23 2023