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.

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, 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, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4

Offset: 0

Author

Andres Cicuttin, Dec 23 2023

Keywords

• nonn

Comments

The linear-log plot of the sequence shows a curious periodic pattern. Does this pattern continue indefinitely?

Links

• Andres Cicuttin, Linear-log plot of first 2^17 terms

Programs

Mathematica

a={0,2};
Do[AppendTo[a,Last[a]-Floor[Mean[a]]+Ceiling@StandardDeviation[a]],{j,1,100}]