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

Comments

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

Links

Table of n, a(n) for n=0..80.

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

Mathematica

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

Crossrefs

Sequence in context: A005102 A030241 A062750 * A193669 A065686 A158411

Adjacent sequences: A368417 A368418 A368419 * A368421 A368422 A368423

Keyword

nonn

Author

Andres Cicuttin, Dec 23 2023

Status

approved