login
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.
1
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?
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
KEYWORD
nonn
AUTHOR
Andres Cicuttin, Dec 23 2023
STATUS
approved